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ABSTRACT 

.  .  -- 

Shipboard  electrical  distribution  systems  are  changing  significantly  with  the  intro¬ 
duction  of  solid  state  frequency  converters,  introduction  of  electric  propulsion  and  integrated 
electric  drive,  and  the  possibility  in  the  future  of  large  combat  systems  pulsed  loads.  Existing 
computer  tools  for  analyzing  power  systems  have  difficulty  simulating  these  changing  con¬ 
ditions.  To  assist  in  the  evaluation  and  analysis  of  future  shipboard  electrical  distribution 
systems,  the  Shipboard  Electrical  Plant  Simulation  Program  (SEPSIP)  was  developed. 

The  key  feature  of  SEPSIP  is  its  use  of  implicitly  defined  input  variables  and  implicit 
variables  which  allow  for  every  element  of  the  simulation  to  be  mathematically  isolated  from 
every  other  element.  When  the  constitutive  laws  of  an  element  are  satisfied  by  an  appropriate 
set  of  input  variables,  all  of  the  implicit  variables  have  zero  value.  The  network  description 
generates  the  input  variables  based  on  the  network  topology  and  the  results  of  a  Newton- 
Raphson  iterative  scheme.  The  key  advantage  to  this  method  is  that  the  network  description 
of  a  node  closely  models  an  actual  electrical  node. 


To  demonstrate  the  abilities  of  SEPSIP,  several  simulations  involving  synchronous 
generators,  induction  motors,  and  voltage  regulator  dynamics  were  conducted.  In  all  simu¬ 
lations,  SEPSIP  provided  results  that  matched  data  generated  by  other  simulation  methods.  > 
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CHAPTER  1 


INTRODUCTION 

1.1  Thesis  Objectives 

Shipboard  electrical  power  systems  in  the  U.S.  Navy  are  experiencing  a  number  of 
significant  changes.  These  changes  include  : 

-  Solid  state  frequency  converters  replacing  motor  generator  sets 

-  The  use  of  switched  DC  power  supplies  by  many  loads 

-  Centralized  and  automated  power  system  control 

-  More  frequent  use  of  electronic  motor  controllers 

-  Sensitive  electronic  equipment  requiring  high  quality  60  Hz.  power. 

-  Electric  propulsion 

-  Large  combat  systems  pulse  loads. 

Considering  the  tremendous  expense  involved  with  constructing  a  modem  warship,  it  is 
necessary  to  ensure  that  the  incorporation  of  these  changes  into  the  design  of  the  shipboard 
electrical  generation  and  distribution  system  can  be  successfully  accomplished  with  no 
degradation  in  the  combat  capability  of  the  ship.  Unfortunately,  these  changes,  along  with 
the  small  size  of  the  shipboard  generation  system  make  the  use  of  many  classical  methods 
of  analyzing  power  systems  inappropriate.  A  good  analysis  requires  the  recognition  of  the 
following  properties  of  the  shipboard  system: 

-  The  small  number  of  generators  (typically  only  one  or  two)  with  the  associated  small 
amount  of  rotational  inertia  invalidates  any  assumption  of  an  ’infinite  bus’  operating  at  a 
constant  frequency. 

-  The  dynamics  of  the  generator  voltage  regulators  and  speed  governors  have  time 
constants  of  an  order  that  are  important  in  the  study  of  most  disturbances. 

-  The  dynamics  of  paralleled  generators  are  coupled  through  the  communication  of  load 
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sharing  and  bus  voltage  information, 

••  Solid  state  frequency  converters  and  switched  power  supplies  have  non-sinusoidal 
current  characteristics. 

-  Solid  state  controllers  often  greatly  modify  or  even  substitute  their  own  dynamics  for 
the  dynamics  of  the  motor  they  are  controlling.  The  controllers  may  also  have  non-sinusoidal 
current  characteristics. 

-  High  power  pulsed  loads  for  advanced  combat  systems  may  become  a  reality  in  the 
near  future  and  deserve  study. 

-  Integrated  Electric  Drive  where  propulsion  motors  and  ship’s  service  power  are  taken 
from  the  same  distribution  system  can  result  in  large  transients  from  speed  changes  in  the 
propulsion  system  propagating  to  all  of  the  other  loads  on  the  ship. 

The  purpose  of  this  thesis  is  to  present  the  theory  and  design  methodology  used  in  the 
development  of  a  computer  simulation  tool  (SEPSIP :  Shipboard  Electrical  Plant  Simulation 
Program)  for  analyzing  both  the  steady -state  and  transient  behavior  of  shipboard  electrical 
power  distribution  systems. 

1.2  Modelling  Shipboard  Electrical  Power  Systems 

Electrical  Power  systems  are  not  unlike  any  other  electrical  network  in  that  they  are 
composed  of  electrical  elements  and  the  topological  network  connecting  the  elements.  Each 
of  the  elements  is  defined  by  a  number  of  constitutive  equations  that  relate  the  voltages  and 
currents  of  its  own  terminals.  The  network  on  the  other  hand,  is  defined  by  relating  the 
voltages  and  terminals  of  different  elements  through  Kirchhoff’s  voltage  and  current  laws. 
1.2.1  Elements  :  Constitutive  Equations 

The  constitutive  equations  describing  an  element  can  be  very  complicated.  In  shi]  > 
board  electrical  power  systems,  the  equations  can  take  on  the  form  of  nonlinear  differential 
equations  or  even  discontinuous  functions.  Additionally,  elements  such  as  generators  and 
motors  require  the  mechanical  subsystem  be  described  in  detail.  Other  elements,  such  as 
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switches  and  circuit  breakers,  are  defined  by  equations  depending  on  the  current  state  of  the 
element.  All  of  these  factors  contribute  to  make  shipboard  electrical  power  systems  difficult 
to  simulate  numerically. 

1.2.2  Networks  :  Nodal  Equations 

The  nodal  equations  are  the  mathematical  expression  of  Kirchhoff’s  voltage  and 
current  laws  that  define  the  network  topology.  Kirchhoff’s  current  law  states  that  the  sum 
of  the  currents  entering  a  node  must  equal  the  sum  of  the  currents  leaving  a  node.  Kirchhoff’s 
voltage  law  states  that  the  voltage  at  any  node  is  identical  for  every  element  attached  to  it.1 
In  themselves,  the  mathematical  representation  of  Kirchhoff’s  laws  are  very  simple. 
However,  the  resulting  system  of  nonlinear  equations  is  often  stiff  which  implies  that  the 
eigenvalues  of  a  linearization  of  the  set  of  nonlinear  equations  fall  in  a  range  spanning 
several  orders  of  magnitude. 

Stiff  systems  can  be  solved  numerically,  but  they  require  special  care.  The  choice  of 
time  increments,  integration  methods,  and  simulation  time  are  all  affected  by  how  stiff  a 
system  is.  If  a  particular  differential  equation  is  known  to  have  a  very  fast  time  constant, 
one  can  ignore  the  dynamics  and  always  use  the  final  value  for  the  variable.  If  used  properly, 
the  Euler  Backward  method  for  integrating  differential  equations  approaches  the  same 
solution.  Fast  modes  can  also  be  eliminated  by  a  host  of  other  model  reduction  techniques. 
[9]  1 10]  [19]  [28]  [31]  In  any  case,  a  tool  designed  to  analyze  shipboard  systems  must 
incorporate  a  method  for  dealing  with  stiff  systems. 


1  An  expression  of  Kirchhoff’s  Voltage  Law  that  may  be  more  familiar  is:  The  sum  of  the 
voltage  drops  across  the  elements  of  a  closed  loop  is  equal  to  zero.  The  two  definitions  are 
not  exactly  identical  but  are  consistent  with  one  another  when  one  accepts  the  concept  of  a 
voltage  being  a  potential  value. 
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1.3  Power  System  Analysis  Computer  Tools 

1.3.1  Desired  Features 

In  light  of  the  characteristics  and  potential  problems  associated  with  modelling 
shipboard  electrical  systems,  a  computer  analysis  tool  should  have  the  following  capabilities: 

*  Ability  to  solve  systems  of  nonlinear  differential  equations. 

*  Ability  to  handle  changing  network  topologies  due  to  the  actions  of  switches  and 

circuit  breakers. 

*  Ability  to  handle  discontinuous  functions. 

*  Ability  to  organize  the  input  data  into  a  form  that  is  recognizable  as  an  electrical 

network. 

*  Ability  to  easily  add  or  subtract  elements  from  the  network  description. 

*  Ability  to  model  mechanical  subsystems. 

*  Ability  to  solve  stiff  systems. 

The  requirements  on  a  simulation  program  that  these  features  impose  are  not  trivial. 
In  fact,  the  author  is  unaware  of  any  commercially  available  software  package  that  incor¬ 
porate  all  of  the  listed  capabilities.  The  software  that  is  available  can  be  split  into  two 
categories:  Programs  used  for  analyzing  commercial  power  utilities,  and  software  packages 
for  solving  systems  of  nonlinear  equations. 

1.3.2  Simulation  Programs  for  Land  Based  Power  Utilities 

There  are  a  number  of  computer  programs  which  can  solve  different  aspects  of  the 
power  system  analysis  problem.  However  none  of  these  programs  are  optimized  for  ana¬ 
lyzing  shipboard  systems.  Here  is  a  brief  summary  of  several  existing  programs: 

1.3.2. 1  EMTP 

The  Electromagnetic  Transients  Program  (EMTP)  (22]  is  a  large-scale  network 
simulation  program  originally  developed  by  the  Bonneville  Power  Association  in  the 
1960's.  It  is  capable  of  modeling  traveling  waves  on  transmission  lines,  lumped  linear 
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elements,  the  saturation  of  transformers  and  reactors,  the  dynamics  of  synchronous 
machines  as  well  as  other  elements  of  a  power  network.  EMTP  handles  stiff  systems  by 
using  the  Euler  Backward  method  for  integration.  In  general,  the  program  is  optimized 
for  studying  the  interaction  between  the  dynamics  of  a  number  of  generators  and  the 
dynamics  of  the  interconnecting  transmission  lines.  The  dynamics  of  the  loads  are  not 
considered  important.  Unfortunately,  the  dynamics  of  loads  are  important  in  shipboard 
systems.  Furthermore,  EMTP  was  written  in  FORTRAN  for  batch  processing  and  is  not 
very  easy  to  use  interactively. 

1.3.2.2  POSSIM 

The  POwer  System  SIMulator  (POSSIM)  [19]  is  a  fifty  machine  transient  stability 
program  developed  by  the  General  Electric  Company.  POSSIM  uses  the  results  of  a 
network  load  flow  program  (LOFYR:  LOad  Flow  and  Y-matrix  Reduction)  as  a  starting 
point  for  a  multi-machine  simulation.  The  program  allows  for  dynamics  only  in  the 
generators  and  their  associated  governors  and  prime  movers.  While  generators  and  prime 
movers  can  be  modeled  in  detail,  the  transmission  line  and  load  equations  are  purely 
algebraic.  POSSIM  also  assumes  frequency  deviations  are  small.  Since  load  dynamics 
are  important  in  shipboard  electrical  systems  and  frequency  deviations  can  become  large, 
POSSIM’s  applicability  is  limited. 

L3.2.3  MANSTAB 

The  M  At  bine  and  Network  STABUity  (MANSTAB)  [19]  program  is  an  extension 
of  POSSIM  which  also  includes  transmission  line  dynamics.  It  still  does  not  allow  for 
dynamics  in  any  of  its  loads.  Generally,  MANSTAB  is  suitable  for  studying  high  speed 
dynamics  and  does  not  include  governor  or  prime  mover  models.  For  this  reason, 
MANSTAB  is  not  suitable  for  simulating  shipboard  systems. 
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1 .3.2.4  MANTRAP 


The  MAchine  and  Network  TRAnsient  Program  (MANTRAP)  [4]  is  a  General 
Electric  Company  modification  of  the  Bonneville  Power  Administration’s  Network 
Transients  Program.  It  is  designed  to  solve  problems  concerning  the  interaction  between 
a  synchronous  generator,  its  excitation  system,  torsional  system,  and  the  power  trans¬ 
mission  system.  MANTRAP  has  a  major  drawback  in  shipboard  studies  in  that  its 
assumption  of  an  infinite  bus  does  not  hold. 

1.3.2.5  LOTDYS 

The  LOng  Term  DYnamic  Simulator  (LOTDYS)  [21]  is  designed  to  study  long 
term  transients  of  power  systems  lasting  up  to  5, 10,  or  20  minutes.  LOTDYS  assumes  all 
the  generators  operate  at  the  same  speed  and  the  generator  transient  time  constants  and 
reactances  can  be  ignored.  LOTDYS  also  ignores  excitation  system  dynamics  and  load 
dynamics.  Prime  mover  dynamics,  load  shedding,  and  power  plant  auxiliaries  are  all 
modeled  in  detail.  The  constraints  on  LOTDYS  severely  limits  its  usefulness  in  studying 
shipboard  systems. 

1.3.3  Software  Packages  for  Systems  of  Nonlinear  Equations 

Since  the  models  of  most  electric  machines  are  described  as  systems  of  linear  or 
nonlinear  equations,  it  seems  reasonable  that  a  general  simulation  program  could  be  used 
to  simulate  the  shipboard  system.  On  closer  examination  however,  the  presently  available 
software  packages  are  limited  in  their  ability  to  organize  and  interconnect  several  different 
machine  models  into  a  large  network.  Writing  a  shipboard  electrical  system  as  one  totally 
integrated  model  invites  the  introduction  of  numerous  programming  errors  as  the  input 
definition  file  becomes  so  large  as  to  be  unmanageable.  Furthermore,  the  task  of  trying  to 
add  or  subtract  elements  from  the  network  becomes  formidable.  The  ability  to  define  ele¬ 
ments  in  separate  blocks  is  very  important  in  understanding  what  a  simulation  is  doing,  in 
debugging  an  input  file,  and  in  making  error  free  changes  to  the  configuration. 


-  16  - 


Many  of  the  nonlinear  equation  solving  packages  are  unable  to  solve  implicit  equations 
which  is  a  handicap  when  trying  to  interconnect  different  models.  In  electrical  system 
simulations,  the  variables  representing  the  voltages  and  currents  at  the  terminals  of  an 
element  must  be  shared  with  the  other  elements  that  connect  to  the  terminals.  If  implicit 
equations  are  not  allowed,  one  of  two  methods  is  normally  used  to  effect  this  sharing.  The 
first  method  calls  for  one  device  explicitly  defining  the  variable  while  all  the  remaining 
variables  implicitly  define  it.  This  method  is  very  difficult  to  implement  because  it  forces 
one  to  define  variables  to  be  eidier  inputs  (implicitly  defined)  or  as  outputs  (explicitly 
defined).  Problems  arise  when  one  tries  to  connect  two  outputs  or  two  inputs  together  (i.e. 
connecting  two  generators  in  parallel).  Since  in  real  electrical  systems  there  is  no  such  thing 
as  an  input  or  an  output  (voltages  and  currents  depend  on  the  properties  of  all  the  elements 
attached  to  a  node),  this  method  imposes  an  artificial  constraint  on  the  network  definition. 

The  other  method  for  interconnecting  element  models  is  to  define  the  voltages  of  every 
device  to  be  inputs  and  the  currents  to  be  outputs.  The  voltage  at  a  node  is  defined  as  a 
separate  variable  whose  derivative  is  equated  to  function  of  the  sum  of  the  currents  entering 
the  node.  This  function  should  result  in  the  node  voltage  having  a  veiy  fast  time  constant. 
Adding  the  fast  time  constant  however,  makes  the  system  stiff  and  difficult  to  solve 
numerically.  It  also  adds  dynamics  that  are  purely  fictional  and  in  general,  defeats  the 
purpose  of  model  reduction. 

1.3.3.1  CSMP 

IBM’s  Continuous  System  Modeling  Program  (CSMP  HI)  [24]  is  a  general 
purpose  program  for  solving  algebraic  and  differential  equations.  The  program  is  not 
capable  of  solving  implicit  equations  and  is  limited  in  the  size  of  the  systems  it  can  model. 
For  these  reasons  CSMP  should  not  be  used  to  simulate  shipboard  systems. 
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1.3.3.2  SIMNON 


SIMNON  is  a  program  for  SIMulating  NONlinear  systems  of  equations  which  was 
developed  by  the  Lund  Institute  in  Sweden.  It  is  similar  in  many  respects  to  CSMP  and 
likewise  suffers  from  its  inability  to  solve  implicit  equations. 

1.3.3.3  ACSL 

The  Advanced  Continuous  Simulation  Language  (ACSL)  [1]  is  another  general 
purpose  simulation  program  like  CSMP  and  SIMNON.  While  ACSL  does  have  the  ability 
to  include  implicit  equations,  its  execution  time  slows  tremendously  when  they  are 
included.  ACSL  also  requires  a  single  input  file  which  can  become  very  large  and 
unmanageable  for  even  moderately  sized  power  systems. 

1.3.4  SEPSIP  (Shipboard  Electrical  Plant  Simulation  Program) 

Since  none  of  the  commercially  available  software  was  suitable  for  studying  shipboard 
electrical  distribution  systems,  the  author  undertook  the  task  of  developing  the  Shipboard 
Electrical  Plant  Simulation  Program  (SEPSIP)  which  incorporates  all  of  the  desired 
features  listed  in  section  1.3.1.  SEPSIP  solves  the  problem  of  interconnecting  device  models 
by  forcing  all  of  the  device  electrical  variables  to  be  input  variables.  This  approach 
mathematically  isolates  all  of  the  elements  of  the  network  from  one  another.  A  separate 
network  description  specifies  how  the  different  input  variables  relate  to  one  another.  The 
network  description  provides  values  for  all  of  the  input  variables  for  every  element.  The 
elements  in  turn,  provide  feedback  in  the  form  of  implicit  variables  to  the  network 
description  as  to  how  well  these  input  variables  solve  the  constitutive  equations  defining 
the  element.  The  manner  in  which  this  is  accomplished  is  discussed  in  chapter  2. 

The  equations  defining  an  electrical  device  are  subroutines  of  SEPSIP  written  in  the 
C  programming  Language.  This  allows  for  very  detailed  and  complex  models  to  be 
incorporated  in  simulations.  It  also  requires  a  detailed  knowledge  of  programming  in  C. 
Once  a  device  description  has  been  written  however,  its  inclusion  into  network  descriptions 
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is  easy.  The  concept  of  using  SEPSIP  is  that  initially  a  number  of  device  descriptions  are 
written  to  describe  the  various  elements  of  a  shipboard  system.  Once  this  library  of  devices 
has  been  created,  simulations  can  be  conducted  by  constructing  networks  interconnecting 
the  devices  models  selected  from  the  established  library. 

1.4  Significance  of  Thesis 

The  discussions  presented  in  the  previous  sections  demonstrate  the  need  for  a  computer 
analysis  tool  for  simulating  shipboard  electrical  distribution  systems.  SEPSIP,  the  program 
written  as  a  part  of  this  thesis,  is  capable  of  conducting  the  desired  simulations  if  time  is  not 
a  constraint.  The  organization  and  user  interface  of  SEPSIP  has  been  optimized  to  simulate 
electrical  distribution  systems  such  as  those  found  onboard  warships.  SEPSIP  still  requires 
optimization  to  improve  the  speed  in  which  it  completes  simulations.  In  this  regard,  potential 
improvements  to  SEPSIP  are  included  in  chapter  6. 

The  general  nature  in  which  SEPSIP  organizes  and  solves  systems  of  nonlinear  equa¬ 
tions  has  applications  outside  of  electrical  power  engineering.  Any  physical  system  composed 
of  a  topological  network  interconnecting  nonlinear  dynamic  elements  can  be  modelled  with 
SEPSIP.  The  author  in  fact,  has  successfully  used  SEPSIP  to  conduct  a  nonlinear  dynamic 
simulation  of  the  motions  of  a  submarine  in  response  to  control  surface  deflections.  For  this 
simulation  devices  were  created  which  related  the  motions  of  the  bare  hull  and  various 
appendages  to  the  forces  and  torques  on  the  center  of  the  submarine.  The  results  of  this 
simulation  correctly  predicted  dynamic  responses  that  can  not  be  derived  from  conventional 
linear  theory, 

1.5  Outline  of  Thesis 

The  following  chapters  are  organized  to  correspond  to  the  four  design  elements  used 
to  create  SEPSIP.  The  second  chapter  describes  the  theory  and  strategy  that  define  the 
requirements  and  properties  of  SEPSIP.  The  third  chapter  is  a  "user’s  manual"  that  describes 
how  the  requirements  of  chapter  2  were  implemented.  Chapter  four  presents  eight  device 
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descriptions  created  for  SEPSIP  to  demonstrate  its  usefulness.  Chapter  five  uses  the  devices 
of  chapter  four  to  conduct  actual  simulations  and  where  possible,  to  verify  the  results  from 
SEPSIP  with  known  responses. 

Chapter  six  provides  an  assessment  of  SEPSIP  and  lists  a  number  of  possible 
improvements  for  the  program.  The  appendices  provide  listings  of  source  code  and 
instructions  for  adding  new  device  descriptions  to  SEPSIP. 
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CHAPTER  2 


THEORY  OF  THE  COMPUTATIONAL  METHOD 
2.1  General  Strategy 

The  principle  underlying  the  organization  of  SEPSIP  is  that  the  constitutive  relations 
of  the  elements  of  a  power  system  should  be  separated  from  the  nodal  equations  describing 
the  network  interconnecting  the  elements.  In  electrical  systems,  a  node  is  the  electrical 
connection  between  two  or  more  elements.  The  current  entering  or  leaving  a  node  must 
conform  to  Kirchhoff’s  Current  Law  which  states  that  the  sum  of  the  currents  entering  a  node 
is  equal  to  the  sum  of  the  currents  leaving  the  node.  Additionally,  the  voltage  at  a  node  is 
the  same  for  every  element  attached  to  it.  The  role  of  the  constitutive  relations  is  to  relate 
the  voltages  of  the  nodes  an  element  is  connected  to,  to  the  currents  resulting  from  the  element 
that  enter  and  leave  those  same  nodes.  These  principles  are  fulfilled  in  SEPSIP  by  implicitly 
defining  all  of  the  network  voltages,  currents,  and  other  variables  within  the  constitutive 
equations  defining  the  individual  elements.  During  each  interval  of  the  time  domain  sirnu 
lation,  the  network  variables  are  systematically  varied  so  that  Kirchhoff’s  current  law  is 
always  satisfied  and  until  all  the  implicitly  defined  constitutive  equations  are  satisfied. 

The  advantage  to  this  method  is  that  each  element  can  be  treated  separately  from  all 
the  other  elements.  The  element  models  need  not  be  concerned  with  the  other  elements  they 
are  connected  to.  It  is  the  responsibility  of  the  network  equations  to  provide  input  variables 
that  satisfy  the  element’s  const!  Jtive  relations,  and  still  satisfy  the  nodal  equations.  The 
purpose  of  defining  the  constitutive  relations  implicitly  is  to  provide  feedback  to  the  network 
equations  that  indicate  how  far  off  the  input  variables  provided  by  the  network  are  from 
satisfying  the  constitutive  relations.  This  feedback  is  used  to  make  corrections  to  the  input 
variables  until  all  of  the  constitutive  relations  are  satisfied. 

To  implicitly  define  the  constitutive  equations  for  the  element,  they  are  put  into  the 

form: 
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F(x)  =  0 


[1] 


where 

x  =  Network  Variable  Vector 

F()  =  A  vector  operator  (potentially  nonlinear)  that  describes  the  constitutive  equations. 
If  an  x  is  chosen  so  that  the  constitutive  equations  are  not  fulfilled,  then  [1]  will  not  be  true. 
Instead,  an  implicit  vector  can  be  defined: 

I  =  F(x)  [2] 

Each  element  then,  will  have  its  own  x  and  corresponding  implicit  vector.  The  role  of 

the  network  is  to  choose  appropriate  x  vectors  that  satisfy  the  network  nodal  equations  and 
result  in  the  7  vectors  having  zero  length. 

EXAMPLE: 

A  resistor  is  a  simple  example  for  illustrating  this  principle  of  defining  constitutive 
equations  implicidy.  A  resistor  is  a  device  that  connects  two  nodes  and  satisfies  Ohm’s  Law. 
If  we  define  the  voltages  at  the  two  nodes  to  be  v0  and  v,  and  the  current  entering  the  resistor 
from  the  two  nodes  to  be  4  and  i„  then  the  constitutive  relations  for  the  resistor  are: 

v0-v,  =  ioK 

4  +  '  i=0 

where 


R  =  Resistance 


Figure  2.1-1  Resistor 

R 


Since  a  resistor  is  a  linear  device,  the  constitutive  relation  can  be  expressed  as  a  matrix 
equation  of  the  form: 


1  = 


(\  -i  -r  or 

i0  o  11, 


\l'j 


Since  a  resistor  is  a  linear  element,  the  matrix  in  the  above  equation  is  also  the  Jacobian 
matrix  for  the  device. 

2.2  Device  Definitions 


In  the  language  of  SEPSIP,  a  device  is  a  mathematical  model  of  a  piece  of  electrical 
equipment.  Examples  of  devices  are  models  of  synchronous  generators,  transmission  lines, 
breakers,  induction  motors,  and  resistive  loads.  A  device  is  differentiated  from  an  element 
in  that  an  element  is  a  particular  example  of  a  device.  For  example,  element  GTG1  may 
represent  the  2000  KW  gas  turbine  generator  located  in  the  forward  engine  room  of  a 
destroyer.  Part  of  GTGl’s  description  would  be  that  it  is  a  device  of  type  KYI 03  which 
indicates  which  equations  should  be  used  to  model  GTG1.  There  could  also  be  a  GTG2  of 
type  KYI 03.  A  device  is  characterized  by  the  equations  which  relate  the  variables  that 
represent  the  interaction  of  the  device  with  everything  else  external  to  itself.  Examples  of 
device  variables  include  voltages,  currents,  speeds,  forces,  torques,  position  of  switches, 
temperature,  and  pressure.  These  variables  can  be  organized  into  a  number  of  categories 
according  to  the  nature  of  their  interaction  between  the  device  and  the  world  external  to  the 
device. 
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Figure  2.2-1  SEPSIP  Variables 


SEPSIP  Variable  Interactions 
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2.2.1  Input  Variables  :  Interacting  with  the  Network 

Input  variables  are  those  variables  which  interact  with  other  devices  through  the 
network  description.  The  network  description  consists  of  a  number  of  nodes  each  having 
one  or  more  subnodes.  The  node  itself  has  no  mathematical  significance,  it  merely  organizes 
subnodes  into  easily  understood  groups.  The  subnodes  on  the  other  hand,  specify  which 
network  law  should  be  applied  to  the  input  variables  attached  to  it.  Every  input  variable  is 
assigned  to  one  and  only  one  subnode  of  a  node.  Each  subnode  however,  can  have  an 
unlimited  number  of  input  variables  assigned  to  it.  There  are  four  types  of  subnodes  to 
which  a  variable  can  be  connected  to:  voltage  subnodes,  reference  voltage  subnodes,  current 
subnodes  and  reference  current  subnodes. 

As  an  example,  a  node  connecting  a  three  phase  motor  to  a  transmission  line  would 
contain  six  subnodes:  3  voltage  subnodes  to  relate  each  of  the  voltage  phases  and  3  current 
subnodes  to  relate  each  of  the  current  phases. 
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2.2.1. 1  Voltage  Subnodes 

All  of  the  input  variables  attached  to  a  voltage  subnode  are  assigned  the  same  value 
at  all  times.  This  voltage  subnode  value  becomes  one  of  the  system  variables  that  must 
be  solved  for.  Although  primarily  used  for  communicating  voltages,  a  voltage  subnode 
can  also  be  used  to  communicate  other  information  between  two  devices.  Examples  include 
load  sharing  information  and  load  shedding  information. 

2.2.1.2  Reference  Voltage  Subnodes 

A  reference  voltage  subnode  is  identical  to  a  voltage  subnode  with  the  exception  that 
the  subnode  voltage  is  specified  as  a  fixed  value  and  therefore  is  not  a  system  variable.  A 
reference  voltage  subnode  must  be  used  to  set  the  ground  potential,  and  may  be  used  to 
set  fixed  operating  points  for  certain  elements. 

2.2.1.3  Current  Subnodes 

A  current  subnode  relates  the  variables  attached  to  it  by  a  conservation  law  which  in 
electrical  terms  is  known  as  Kirchhoff’s  Current  Law.  This  law  staf-;s  that  the  sum  of  the 
variables  attached  to  a  current  subnode  is  identically  zero.  In  SEPSIP,  this  is  accomplished 
by  assigning  the  first  variable  attached  to  a  current  subnode  the  negative  sum  of  the  other 
attached  variables.  All  of  the  input  variables  after  the  first  one  connected  to  the  current 
subnode  become  system  variables  that  must  be  solved  for.  The  convention  for  current 
direction  is  that  the  current  always  enters  the  device  and  leaves  a  subnode. 

2.2.1.4  Reference  Current  Subnodes 

A  reference  current  subnode  does  not  satisfy  Kirchhoff’s  Current  Law.  All  of  the 
input  variables  attached  to  it  become  system  variables.  In  most  simulations,  Kirchhoff’s 
Current  Law  at  one  subnode  is  a  linear  combination  of  all  the  Kirchhoff  s  Current  Law 
equations  from  the  other  current  subnodes.  To  specify  the  law  again  would  result  in  either 
a  system  with  too  many  implicit  variables,  or  one  which  has  a  singular  system  Jacobian 
matrix. 
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2.2.2  Parameters 

Parameters  are  variables  that  do  not  change  through  out  a  simulation.  They  are  used 
when  defining  an  element  to  customize  a  device  model  to  fit  the  properties  of  a  particular 
electrical  component.  Examples  of  parameters  are  resistances,  inductances,  capacitances, 
time  constants,  bias  voltages,  and  saturation  points. 

2.2.3  Implicit  Definition  of  Input  Variables 

An  important  requirement  for  the  equations  describing  a  device  is  that  the  input 
variables  must  be  implicidy  defined.  The  network  balancing  td^orithms  determine  the  values 
the  input  variables  take  on.  The  device  description  provides  information  (feedback)  as  to 
how  closely  the  implicit  equations  are  satisfied  through  implicit  variables.  Implicit  variables 
have  a  value  of  zero  when  their  corresponding  implicit  equations  are  satisfied.  One  way  to 
look  at  this  process  is  to  view  a  device  as  a  transfer  function  between  the  input  variables 
and  the  implicit  variables.  The  Network  then  uses  the  implicit  variables  to  iteratively 
generate  the  input  variables  until  the  implicit  variables  are  driven  to  zero. 

2.2.4  Implicit  Variable  Selection  :  Rotating  and  Translating  Axes 

One  has  a  lot  of  latitude  in  defining  the  implicit  variables.  The  easiest  method  is  to 
write  the  constitutive  equations,  move  everything  over  to  one  side,  then  define  this  quantity 
to  be  the  implicit  variable.  This  is  the  technique  used  in  the  last  example  which  modelled 
the  resistor.  Unfortunately,  this  method  can  result  in  numerical  instability  when  dealing 
with  nonlinear  devices. 

Figure  2. 2.4-1  Diode 

_Yo_M - v, 

%  1/  «ll 


-26- 


Take  a  diode  for  example.  A  simple  model  for  a  diode  is  a  switch  that  allows  positive 
current  to  flow  when  the  voltage  across  it  0.6  volts.  Once  current  is  flowing  through  the 
diode,  the  voltage  drop  across  it  is  maintained  at  0.6  volts.  As  with  the  resistor,  the  input 
variables  are  defined:  v0  and  v,  for  the  voltages,  and  4  and  i,  for  the  currents.  The  constitutive 
relations  are: 

i0  =  0  :  v0  -  v,  <  0.6 

v0  -  v,  =  0.6  :  i0  >  0 

4  + 1,  =  0 

The  easy  method  of  defining  the  constitutive  equations  would  be  to  define  I0  and  I,  to 
be: 

4  :  vo  “  vi  <  0.6] 

Vq-v’,-0.6  :  v0-v,>0.6J 

4  =  4+4 

This  definition  unfortunately,  works  badly  in  many  circumstances.  To  begin  with,  the 
definition  allows  for  negative  current  to  flow  when  the  diode  is  forward  biased.  Another 
problem  is  that  the  implicit  variable  I0  is  discontinuous  at  the  boundary  where  v0  -  v,  =  0.6. 
This  type  of  discontinuity  will  usually  cause  much  difficulty  when  trying  to  iteratively  solve 
equations  with  most  standard  techniques  (Such  as  the  Newton  Raphson  method  used  in 
SEPSIP).  In  general,  keeping  the  highest  possible  order  derivative  continuous  across  a 
boundary  will  help  tremendously  in  achieving  a  numerically  stable  solution. 

The  definition  of  4  can  be  greatly  improved  by  defining  a  new  set  of  axes  centered 
on  the  boundary  point  (v  =  v0  -  v,  =  0.6  and  4  =  0)  and  rotated  45  degrees.  The  transformation 
matrix  to  tire  new  x  and  y  variables  is  given  by: 

Y|_V27  1  1 V v«~  v, 

Wu-i  iJl  4 

The  constitutive  equation  for  I0  becomes: 
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y  =lxl 

Io  can  then  be  defined  to  be: 

I0  =  y-\x\ 

This  definition  for  Iq  is  continuous.  The  discontinuity  has  been  moved  to  the  first 
derivative.  For  simple  simulations  where  the  voltage  across  the  diode  is  not  changing  very 
rapidly  compared  to  the  simulation  time  increment,  this  definition  for  1^  will  normally  work. 
Normally,  one  would  like  to  have  even  higher  order  derivatives  continuous  to  ensure 
numerical  stability.  This  can  only  truly  be  done  in  this  case  by  changing  the  constitutive 
equation  to  reflect  more  characteristics  of  a  physical  diode. 

Even  if  the  constitutive  law  of  the  diode  is  changed  to  make  the  slope  continuous,  the 
method  oudined  above  for  rotating  axes  should  still  be  used.  This  is  because  most  numerical 
methods  rely  on  the  partial  derivatives  of  the  implicit  variables  with  respect  to  the  input 
variables  in  the  form  of  a  Jacobian  Matrix  to  update  the  last  guess  for  the  input  variable.  A 
very  steep  slope  results  in  a  Jacobian  element  being  very  large  and  the  potential  of  having 
a  floating  point  overflow  when  the  Jacobian  matrix  is  created  or  inverted.  An  overflow  can 
also  occur  when  the  corrections  to  the  input  variables  cause  the  recalculated  implicit  variable 
to  overflow.  In  general,  when  the  slope  of  the  v/j  characteristic  has  a  section  with  a  very 
steep  slope,  the  axes  should  be  rotated  so  that  the  maximum  slope  is  minimized. 

Another  consideration  when  defining  implicit  variables  is  choosing  the  magnitude 
correctly.  Since  an  exact  solution  which  results  in  all  the  implicit  variables  being  identically 
zero  may  not  be  possible  due  to  time  constraints  or  round  off  error,  every  iterative  scheme 
relies  on  a  method  for  determining  when  the  implicit  variables  are  close  enough  to  zero. 
One  way  is  to  compare  the  root  mean  square  of  the  implicit  variables  with  a  preset  number. 
If  this  method  is  used,  the  order  of  magnitude  of  all  the  implicit  variables  should  be  the  same 
for  the  same  order  of  magnitude  inputs.  Otherwise,  certain  variables  would  be  allowed  to 
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vary  more  than  other  variables.  For  example,  one  voltage  may  be  known  to  within  a  1% 
error  while  another  may  be  known  to  within  a  0.1  %  error.  Of  course,  if  this  effect  is  desired, 
one  can  easily  weight  an  implicit  variable  by  an  arbitrary  constant. 

2.2.5  Data  Storage  :  State  Variables 

A  number  of  device  models  require  the  condition  of  the  device  during  the  last  time 
increment  be  known.  This  information  is  conveyed  to  the  model  through  state  variables. 
Examples  of  states  include  the  voltage  and  current  of  a  capacitor  or  inductor,  position  of 
switches,  position  of  breakers,  time  since  a  specific  event  occurred,  and  peak  values  of 
specific  variables.  One  could  conceivably  use  the  state  variables  to  store  the  time  history 
of  a  variable  to  determine  averages  or  other  statistical  or  spectral  properties. 

2.2.6  External  Inputs 

External  Inputs  allow  the  user  to  interact  with  device  models.  The  user  can  create  a 
queue  which  contains  the  values  an  external  input  takes  on  at  specified  times.  Uses  for 
external  inputs  include  position  of  switches,  control  waveforms,  reference  voltages,  input 
waveforms  from  another  program,  controlling  the  configuration  of  an  element. 

2.2.7  External  Outputs 

External  Outputs  (along  with  External  Inputs  and  Voltage  Subnode  voltages)  are 
variables  the  user  is  allowed  to  monitor  during  the  simulation.  Therefore,  any  quantity  that 
a  user  may  be  interested  in  should  be  defined  as  an  external  output  variable.  The  user  still 
has  the  choice  as  to  which  external  outputs  to  see,  so  there  is  no  problem  with  defining  a 
number  of  output  variables.  External  Output  variables  can  also  be  stored  in  files  for  plotting 
at  a  later  time. 

2.2.8  Integration  Techniques 

Constitutive  equations  for  devices  often  require  the  integration  of  a  time  derivative. 
Any  textbook  on  numerical  methods  will  provide  a  large  selection  of  integration  algorithms 
along  with  methods  of  determining  their  accuracy  and  stability.  For  most  simulations 
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however,  there  are  three  methods  that  work  well.  The  first  is  the  Euler  Forward  method 
which  is  considered  an  explicit  technique  since  it  requires  knowldege  only  of  the  values  of 
the  variables  during  the  past  time  step. 


dx 

dt 


=  y 


x  -  xou + yoljdt 

The  Euler  Forward  method  is  particularly  suited  for  occasions  when  the  differential 
equation  has  a  strong  mode  that  is  much  slower  than  the  simulation  time  step.  For  systems 
with  many  modes,  the  Euler  Forward  method  can  eliminate  the  need  to  add  additional  implicit 
variables  and  associated  input  variables.  The  drawback  of  the  Euler  Forward  method  is  that 
it  requires  small  time  steps  for  fast  modes. 

The  Euler  Backward  method  is  similar  to  the  Euler  Forward  method  with  the  exception 
that  the  variables  are  evaluated  at  their  present  values  instead  of  their  old  values.  The  Euler 
Backward  Method  is  thus  an  implicit  scheme  since  it  uses  present  values  to  specify  another 
present  value.  Since  most  devices  will  have  several  implicit  variables  to  offset  input  vari¬ 
ables,  there  is  usually  no  extra  computational  burden  in  using  an  implicit  scheme. 

x  =x0u  +  dty 


The  Euler  Backward  method  should  normally  be  used  where  the  possibility  exists  that 
the  time  increment  will  be  longer  than  the  time  constant  associated  with  any  of  the  differential 
equations. 

The  implicitly  defined  T rapezoidal  Method  combines  the  Euler  Forward  and  Backward 
methods: 


X=XoU  + 


dt 


O’+3'ou) 


Whenever  possible,  one  should  use  the  trapezoidal  rule  due  to  its  greater  accuracy. 
However,  when  its  use  requires  the  addition  of  input  variables  to  compensate  for  additional 
implicit  variables,  the  Euler  forward  method  should  be  considered. 
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There  also  exists  a  modified  Trapezoidal  method  where  the  weights  for  y  and  y^  differ 
from  0.5 .  Weighting  y  slightly  more  helps  prevent  instabilities  when  the  time  step  approaches 
the  characteristic  time  constant  of  the  equation. 

2.2.9  Modelling  Transfer  Functions 

Many  devices  have  components  that  are  modelled  as  transfer  functions  using  Laplace 
Transforms.  A  common  example  has  the  form: 


Y- 


As  +B 
Cs  +  /) 


X 


dX 


Since  —  =  Xs ,  the  Trapezoidal  Method  can  be  modified  to  provide  an  Implicit  Variable 


/,  =  A(x-xoU)  + 


dt']  ( dt\ 

-JB (x  +x0J - C(y  - yM) -  jZ)(y  +  yM) 


This  equation  can  be  incorporated  in  the  definition  of  a  more  complicated  device  or  can  be 
defined  seperately  as  its  own  device. 

2.2.10  Jacobian  Construction 


SEPSIP  uses  a  Jacobian  Matrix  to  determine  the  corrections  to  the  input  variables  in 
order  to  drive  the  implicit  variables  to  zero.  The  elements  of  the  Jacobian  Matrix  are  the 
partial  derivatives  of  the  implicit  variables  with  respect  to  all  of  the  input  variables.  In  other 
words,  the  Jacobian  Matrix  gives  the  slopes  of  the  implicit  surface  in  the  directions  of  each 
of  the  input  variables. 
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SEPSIP  allows  for  the  Jacobian  to  be  calculated  in  two  different  methods.  The  device 
description  can  generate  the  Jacobian,  or  the  network  will  approximate  it.  Normally  the 
device  description  should  create  the  Jacobian  in  the  interest  of  speed  and  control  over  how 
it  is  created.  It  usually  isn’t  too  difficult  to  come  up  with  analytic  expressions  describing 
the  partials  of  the  implicit  variables.  If  desired,  the  network  approximates  the  Jacobian  by 
varying  the  input  variables  a  small  amount  in  either  direction,  and  noting  how  much  the 
implicit  variables  change.  The  change  in  the  implicit  variable  divided  by  the  change  in  an 
input  variable  is  usually  a  fair  approximation  for  the  partial  derivative. 

Another  advantage  to  having  the  device  description  generate  the  Jacobian  is  that  the 
device  description  doesn’t  have  to  generate  the  real  Jacobian  matrix.  If  a  value  larger  in 
magnitude  than  the  partial  derivative  is  substituted  for  an  element  of  the  Jacobian  Matrix, 
the  corrections  to  the  input  variables  will  result  in  the  implicit  variable  being  driven  to  zero 
more  slowly.  This  can  be  advantageous  near  discontinuities  of  the  constitutive  equations 
and  discontinuities  in  their  first  derivatives  where  one  may  want  to  retard  the  transition  from 
one  side  of  a  discontinuity  to  the  other. 

Replacing  an  element  of  a  Jacobian  Matrix  with  a  value  smaller  in  magnitude  than  the 
partial  derivative  will  usually  result  in  a  numerically  unstable  simulation.  The  corrections 
to  the  input  variables  will  be  larger  than  needed  to  drive  the  implicit  variable  to  zero.  The 
implicit  variable  will  usually  oscillate  around  zero  and  grow  in  magnitude  with  time. 

2.3  ELEMENT  DESCRIPTIONS 

As  described  earlier,  an  element  is  a  particular  example  of  a  device.  A  resistor  for 
example,  could  be  a  device,  while  R1 1  which  is  a  specific  circuit  element  of  type  resistor 
having  a  resistance  of  47  ohms  would  be  an  element.  Elements  are  differentiated  from  each 
other  by  their  names,  device  type,  and  parameter  specification.  The  first  section  of  the  input 
file  for  SEPSIP  contains  all  of  the  element  definitions  and  parameter  assignments. 
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2.4  NETWORK  Description 

The  network  is  described  by  assigning  all  of  the  input  variables  from  all  of  the  elements 
to  one  and  only  one  subnode.  The  subnodes  in  turn,  are  organized  into  groups  called  nodes. 
The  purpose  of  the  subnode  is  to  relate  the  input  variables  of  one  element  to  the  input  variables 
of  another  variable.  The  nature  of  the  relationship  is  determined  by  specifying  the  subnode 
to  be  either  a  voltage  subnode  or  a  current  subnode.  The  relationship  is  further  modified  if 
the  subnode  is  classified  as  a  reference  subnode. 

Once  the  network  is  specified,  system  variables  can  be  defined.  System  variables  are 
members  of  the  smallest  subset  of  the  input  variables  from  which  all  of  the  other  input  variables 
can  be  derived  from  by  using  the  relational  properties  of  the  subnodes.  For  a  well  defined 
simulation,  the  number  of  system  variables  will  equal  the  total  number  of  implicit  variables. 
If  the  two  numbers  are  not  equal,  there  will  either  be  many  solutions  to  the  simulation,  or 
none  at  all.  SEPSIP  will  not  conduct  a  simulation  unless  the  number  of  system  variable  does 
indeed  equal  the  total  number  of  implicit  variables. 

2.4.1  Voltage  Subnodes 

The  input  variables  at  a  voltage  subnode  are  all  set  equal  to  the  subnode  voltage  which 
is  a  system  variable  (unless  designated  a  reference  subnode).  As  its  name  implies,  a  voltage 
subnode’s  purpose  is  to  specify  potential  values.  The  potential  value  need  not  only  be 
voltages  however.  Temperature,  pressure,  position,  deflection,  and  Boolean  states  can  also 
be  communicated  through  voltage  subnodes. 

2.4.2  Current  Subnodes 

Input  variables  assigned  to  a  current  subnode  satisfy  Kirchhoff’ s  Current  Law  (unless 
designated  a  reference  subnode).  The  first  input  variable  attached  to  the  current  subnode 
is  set  equal  to  the  negative  sum  of  all  the  remaining  input  variables  attached  to  the  subnode. 
All  of  the  remaining  input  variables  are  system  variables.  The  current  subnode  can  therefore 
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be  used  where  input  variables  must  satisfy  a  conservation  law  through  the  network.  Forces, 
torques,  fluid  flow  rates  and  power  flow  can  also  be  handled  in  addition  to  electrical  current 
by  the  current  subnode. 

2.5  Reference  Subnodes 

To  match  the  number  of  implicit  variables  with  the  number  of  system  variables  or  to 

ensure  there  is  a  unique  solution,  it  may  be  necessary  to  designate  one  or  more  subnodes  a 

reference  subnode.  If  a  voltage  subnode  is  specified  to  be  a  reference  subnode,  its  value  is 

always  set  to  a  user  selected  preset  value.  The  normal  usage  would  be  to  declare  the  ground 

voltage  subnode  to  be  a  reference  with  zero  value.  Reference  voltage  subnodes  can  also  be 

used  to  simulate  power  supply  voltage  busses. 

Reference  current  subnodes  do  not  satisfy  Kirchhoff’s  current  law.  All  of  the  input 

variables  attached  to  them  are  designated  system  variables.  In  a  closed  system  (i.e.  one  where 

the  conservation  law  applies  at  every  current  subnode  and  in  every  element  through  out  the 

system),  Kirchhoff’s  current  law  at  one  of  the  current  subnodes  will  be  a  linear  combination 

of  all  the  other  Kirchhoff’ s  current  law  equations  at  the  other  current  subnodes.  Therefore, 

the  sum  of  the  currents  entering  the  reference  subnode  will  automatically  be  zero. 

Reference  current  subnodes  also  provide  a  way  to  leave  input  variables  unterminated. 

This  property  can  be  used  by  device  descriptions  to  increase  the  number  of  implicit  variables 

used  to  represent  the  relations  defining  the  device.  Normally,  when  modelling  electrical 

devices,  one  implicit  equation  should  be  provided  for  each  terminal  (which  corresponds  to 

two  input  variables  :  one  voltage,  and  one  current).  This  can  be  seen  if  we  define: 

m  =  number  of  terminals  (voltage-current  pairs)  in  the  system 

n  =  number  of  subnodes  in  the  system 

r,  =  number  of  reference  current  subnodes 

rv  =  number  of  reference  voltage  subnodes 

Nv  =  number  of  system  variables  due  to  voltage  subnodes 

N,  =  number  of  system  variables  due  to  current  subnodes 

Ne  =  number  of  implicit  equations 

then 
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Nv  =  n  -  rv 
Nj  =  in  -  n  +  Tj 
Ne  =  Nj  +  Nv  =  m  -  rv  +  rf 

Since  electrical  devices  deal  with  potential  differences,  rather  than  with  the  absolute 
magnitude  of  the  potential,  a  reference  potential  is  required  to  fix  one  of  the  nodes.  As 
explained  above,  a  reference  current  subnode  is  also  required  to  prevent  a  singular  system. 
The  total  number  of  implicit  variables  must  therefore  equal  the  number  of  terminals. 

If  a  device  description  requires  more  implicit  variables  than  it  has  terminals,  extra  input 
variables  must  be  provided  for  the  excess  implicit  variables.  These  variables  should  be 
attached  to  a  reference  current  subnode  or  to  separate  voltage  subnodes. 

2.6  Conducting  the  Simulation 

The  simulation  of  the  system  described  by  the  network  description  is  carried  out  by 
solving  a  system  of  nonlinear  equadons  at  each  time  increment.  Each  nonlinear  equation 
corresponds  to  the  definition  of  an  implicit  variable  which  has  a  value  of  zero  when  the  system 
is  balanced.  To  balance  the  system,  an  initial  guess  is  first  made  for  all  the  system  variables. 
For  the  first  time  step,  the  user  may  specify  the  guess,  otherwise  the  system  variables  are  all 
set  to  zero.  For  the  remaining  time  steps,  the  results  of  the  previous  time  step  are  used.  The 
total  number  of  independent  system  variables  is  considerably  smaller  than  the  total  number 
of  input  variables  since  a  number  of  the  input  variables  are  related  through  the  network 
definition.  For  example,  all  the  input  variables  attached  to  a  voltage  subnode  are  always 
given  the  same  value.  From  the  system  variables,  all  of  the  input  variables  to  each  of  the 
elements  is  derived  from  a  description  of  the  network  topology.  Using  these  values  of  the 
input  variables,  the  implicit  variables  are  calculated  for  each  of  the  elements.  If  the  mean 
square  value  of  all  the  implicit  variables  are  below  a  specified  threshold,  then  the  system  is 
considered  balanced.  If  the  mean  square  value  is  larger  than  the  threshold,  then  the  system 
Jacobian  matrix  is  constructed.  The  system  Jacobian  matrix  consists  of  the  partial  derivatives 
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of  the  implicit  variables  with  respect  to  each  of  the  independent  system  variables.  It  is 
fabricated  by  piecing  together  the  Jacobian  matrices  of  all  the  elements.  Inverting  and 
multiplying  the  system  Jacobian  matrix  by  the  vector  containing  the  implicit  variables  pro¬ 
vides  a  correction  to  the  independent  system  variables.  Once  the  corrections  are  subtracted 
from  the  independent  system  variables,  the  implicit  variables  are  recalculated  and  the 
balancing  process  continues  until  the  system  is  balanced.  Once  balanced,  results  are  printed, 
state  variables  and  external  input  variables  are  updated,  and  the  time  counter  is  incremented. 
In  this  manner,  the  simulation  is  stepped  through  time. 

2.6.1  Setup 

During  the  setup  stage,  two  arrays  of  data  structures  are  created  to  describe  the  network 
topology  in  a  compact  form.  The  first  array  describes  all  of  the  independent  system  variables 
and  how  they  relate  to  the  input  variables  of  the  individual  elements.  The  second  array 
keeps  track  of  which  implicit  variable  belongs  to  which  element. 

Each  data  structure  for  the  system  variable  array  consists  of  three  subarrays.  The 
number  of  entries  in  all  three  subarrays  is  equal  to  the  number  of  input  variables  associated 
with  the  system  variable.  For  a  non-reference  voltage  subnode,  all  of  the  input  variables 
attached  to  it  will  be  associated  with  one  system  variable  and  will  therefore  each  have  entries 
in  the  three  subarrays.  A  reference  voltage  subnode  has  a  specified  value  and  therefore  is 
not  associated  with  any  of  the  system  variables.  For  a  reference  current  subnode,  all  of  the 
input  variables  attached  to  it  are  separate  system  variables  whose  corresponding  subarrays 
will  contain  only  one  entry.  A  non-reference  current  subnode’s  first  input  variable  is  set 
equal  to  the  negative  sum  of  the  remaining  input  variables.  Each  of  the  remaining  input 
variables  is  associated  with  one  system  variable  whose  subarrays  have  two  elements:  The 
first  corresponding  to  the  first  input  variable;  and  the  second  corresponding  to  the  remaining 
input  variable. 
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The  first  subarray  for  each  system  variable  data  structure  contains  integer  offsets  to 
the  array  of  elements.  The  second  subarray  contains  integer  offsets  to  the  input  variable  list 
within  the  element  description.  The  third  subarray  contains  a  multiplier  that  is  used  in 
constructing  the  system  Jacobian  matrix.  Normally  this  multiplier  has  a  value  of  1.0,  but 
for  the  special  case  of  a  system  variable  corresponding  to  an  input  variable  attached  to  a 
non-reference  current  subnode,  the  first  entry  has  a  value  of  - 1 .0  to  account  for  the  fact  that 
the  first  variable  associated  with  a  current  subnode  is  the  negative  sum  of  the  remaining 
variables. 

The  data  structures  for  the  implicit  variable  structure  array  contain  only  two  integer 
offsets.  The  first  is  an  offset  for  the  array  of  elements  and  the  second  is  the  offset  in  the 
array  of  implicit  variables  for  the  element.  In  this  manner,  all  of  the  implicit  variables  can 
easily  be  referenced. 

The  setup  section  also  creates  an  implicit  variable  cross-reference  array  in  the 
description  of  each  element  that  specifies  which  entry  in  the  implicit  variable  structure  array 
to  which  each  of  the  implicit  variables  of  the  element  corresponds. 

2.6.2  Initialization 

Before  the  simulation  starts,  all  of  the  input  variables,  state  variables,  and  external 
input  variables  are  initialized.  The  initial  values  for  the  state  variables  are  actually  applied 
to  the  time  increment  immediately  before  the  start  of  the  simulation  (old  state  variables). 
The  input  variables  are  initialized  in  a  two  step  process.  First,  an  array  of  system  input 
variables  is  initialized.  Then  from  the  network  description,  the  input  variables  for  all  of  the 
elements  are  derived.  If  a  variable  is  not  explicitly  initialized  by  the  user,  it  is  set  to  zero. 

2.6.3  Updating  External  Inputs 

The  external  input  variables  are  updated  at  each  time  increment  by  scanning  the 
external  input  queue  for  variable  changes  that  occur  before  the  present  system  time.  All  of 
the  external  input  variables  scheduled  for  a  change  in  value  are  then  updated. 
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2.6.4  Balancing  the  System 

The  process  of  finding  a  set  of  input  variables  that  simultaneously  satisfies  all  the 
network  equations  and  all  the  implicit  equations  of  the  elements  is  known  as  balancing  the 
system.  The  procedure  involves  calculating  the  implicit  variables,  constructing  a  system 
Jacobian  matrix,  calculating  corrections  to  the  input  variables,  and  repeating  the  process 
until  the  implicit  variables  are  within  tolerable  limits  of  zero. 

2.6.4. 1  Calculating  Implicit  Variables 

The  first  step  in  balancing  the  system  is  calculating  the  implicit  variables.  The 
functions  describing  each  of  the  elements  are  called  one  at  a  time  and  provided  with  the 
appropriate  input  variables.  These  functions  use  the  input  variables  along  with  the  external 
input  variables  and  the  state  variables  calculated  in  the  previous  time  step  to  generate  the 
implicit  variables. 

Once  all  of  the  implicit  variables  have  been  calculated,  they  are  assembled  into  an 
implict  variable  array  in  the  order  specified  in  the  implicit  variable  structure  array  con¬ 
stricted  in  the  setup  phase.  The  mean  square  value  of  all  the  implicit  variables  is  also 
calculated  and  if  its  magnitude  is  smaller  than  a  predefined  amount,  the  sytem  is  considered 
balanced  and  the  program  jumps  to  printing  the  results  out. 

2.6A2  Manufacturing  System  Jacobian  Matrix 

The  system  Jacobian  matrix  is  generated  by  piecing  together  the  Jacobian  matrices 
for  each  of  the  elements.  The  elemental  Jacobian  matrix  can  be  generated  by  the  function 
which  also  produces  the  implicit  variables,  or  it  can  be  approximated  numerically.  The 
function  that  returns  the  implicit  variables  also  returns  a  flag  indicating  whether  or  not  the 
Jacobian  matrix  was  calculated.  If  the  matrix  was  not  constructed,  it  is  manufactured  by 
varying  each  of  the  input  variables  slightly  and  approximating  the  partial  derivatives  by 
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dividing  the  differences  between  the  resulting  implicit  variables  by  the  differences  of  the 
input  variables.  The  percentage  change  and  the  minimum  change  in  the  input  variables 
can  be  specified  by  the  operator. 

The  system  Jacobian  Matrix  is  constructed  one  column  at  a  time.  Each  column  has 
its  associated  structure  in  the  input  variable  structure  array  that  specifies  which  elements 
and  input  variables  contribute  to  that  column.  Knowing  the  element  and  the  input  variable 
is  enough  knowledge  to  extract  the  appropriate  column  from  the  element  Jacobian  matrix. 
Which  row  in  the  system  Jacobian  matrix  to  insert  each  of  the  entries  of  the  element  Jacobian 
column  is  provided  by  the  implicit  variable  cross  reference  array.  By  stepping  through 
each  of  the  structures  of  the  input  variable  structure  array,  the  entire  system  Jacobian  matrix 
can  be  constructed. 

One  result  of  separating  the  creation  of  the  system  Jacobian  matrix  from  the  element 
Jacobian  matrices  is  that  extra  work  is  done  in  creating  columns  in  the  element  Jacobian 
matrices  that  do  not  contribute  anything  to  the  System  Jacobian.  This  arises  whenever  an 
input  variable  is  attached  to  a  reference  voltage  subnode.  Since  a  reference  voltage  node 
always  has  a  constant  voltage,  it  does  not  contribute  a  system  variable. 
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Figure  2.6.4. 2-1 
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2.6.4.3  Calculating  Variable  Corrections  via  Newton-Raphson 

Once  the  system  Jacobian  matrix  7  and  the  implicit  variable  vector  i  are  created, 

corrections  to  the  input  variable  vector  x  can  be  calculated  via  the  Newton-Raphson  method. 
The  matrix  equation  Jx  -  I  is  solved  using  Gaussian  Elimination  with  partial  pivoting.  If 
the  Jacobian  Matrix  is  singular,  the  Gaussian  Elimination  will  fail  due  to  the  inability  to 
get  a  non-zero  number  in  the  pivot  element.  If  this  occurs,  the  simulation  halts  with  an 
error  message. 

After  the  corrections  have  been  applied  to  the  input  variable  vector,  the  implicit 
variables  are  recalculated  and  the  process  continues  until  the  mean  error  of  the  implict 
variables  is  within  tolerable  limits  of  zero,  or  until  a  predetermined  number  of  iterations 
have  been  made.  If  the  iteration  limit  is  reached,  the  simulation  has  failed  to  converge  on 
a  solution  is  halted  with  an  error  message. 

2.6.5  Printing  Results 

Since  the  operator  can  specify  a  printing  time  increment  different  from  the  simulation 
time  increment,  a  test  is  made  to  determine  whether  or  not  any  results  should  be  printed.  If 
the  test  is  successful,  all  of  the  variables  designated  to  be  displayed  in  the  simulation  section 
of  the  input  file  are  printed  to  the  screen,  or  to  a  file  if  one  was  specified  by  the  operator. 

2.6.6  Updating  State  Variables  and  Time  Counter 

The  state  variables  are  produced  by  the  function  that  also  calculates  the  implicit 
variables.  Once  the  system  is  balanced,  these  state  variables  are  moved  to  another  array 
called  the  old  state  variable  array  which  can  be  used  during  the  next  time  increment. 

The  time  variable  is  also  updated  by  adding  the  specified  time  increment.  If  the  time 
variable  exceeds  the  maximum  time  of  the  simulation,  the  simulation  is  terminated  and 
control  returns  back  to  the  main  menu  of  SEPS1P. 
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2.6.7  Potential  Problems 


2.6.7. 1  Numerical  Instability 

The  Newton-Raphson  method  is  only  guaranteed  to  converge  on  a  solution  if  the 
initial  guess  is  sufficiently  close  to  the  solution.  Unfortunately,  it  is  very  difficult  to 
determine  how  close,  ’sufficiently  close’  is.  If  the  time  increment  is  small  enough,  the 
’  lput  variables  should  not  change  appreciably.  Hence  using  the  results  of  the  previous 
time  increment  as  a  first  guess  usually  produces  good  results.  There  are  two  occasions 
however,  when  this  may  not  hold.  First,  during  the  initial  balancing  of  the  system,  the 
initial  guesses  are  provided  by  the  user.  If  these  guesses  are  not  sufficiently  close  to  the 
solution,  the  system  will  not  converge.  Another  situation  that  may  occur  during  the 
execution  of  a  simulation  is  that  a  discrete  event  may  occur  that  changes  the  configuration. 
The  solution  to  the  new  configuration  may  not  be  sufficiently  close  to  the  solution  of  the 
old  configuration  to  guarantee  stability. 

2.6.7. 2  Singular  Jacobian  Matrix 

The  simulation  can  also  fail  if  the  System  Jacobian  Matrix  is  singular  and  therefore 
uninvertable.  This  can  occur  if  the  network  is  defined  poorly  or  if  a  discrete  event  results 
in  a  poorly  defined  network.  Systems  incorporating  switches  or  breakers  are  particularly 
susceptible  to  this  problem.  (If  two  switches  are  connected  in  series  and  both  opened,  their 
implicit  variables  would  be  set  equal  to  the  terminal  currents.  The  current  subnode  con¬ 
necting  the  two  switches  would  further  equate  the  two  attached  currents  and  thereby 
overspecify  them.  Furthermore,  the  voltage  of  the  connecting  voltage  subnode  would  not 
be  implicitly  defined  anywhere.) 

2.6.7.3  Non-Unique  Solutions 

In  nonlinear  systems,  it  is  often  possible  for  more  than  one  set  of  input  variables  to 
satisfy  all  of  the  constitutive  relations  and  network  equations.  For  these  systems,  it  is  very 
important  to  provide  the  solution  with  the  best  possible  intitial  guesses  in  order  for  the 
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system  to  converge  on  the  desired  solution.  Once  the  simulation  has  started,  using  the 
results  of  the  previous  time  step  as  an  initial  guess  should  normally  result  in  convergence 
to  the  proper  solution.  This  method  for  determing  the  initial  input  variables  can  still  fail 
during  time  steps  in  which  system  reconfigurations  have  taken  place  that  result  in  certain 
variables  changing  considerably  over  the  one  time  increment. 
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CHAPTER  3 


SEPSIP 

SHIPBOARD  ELECTRICAL  PLANT 
SIMULATION  PROGRAM 

3.1  Introduction 

SEPSIP  is  a  simulation  program  optimized  for  solving  lumped  parameter  systems  with 
elements  that  are  described  by  nonlinear  constitutive  equations.  The  program  is  written  in 
the  C  programming  language  and  is  presently  running  under  the  UNIX  operating  system  on 
Digital  Equipment  Corporation  VAX  Workstation  II  and  VAX  Workstation  2000  computers. 
The  files  are  located  in  the  sepsip  subdirectory  of  the  13.41 1  Course  Locker  of  MIT’s  Project 
ATHENA.  SEPSIP  should  be  easily  adapted  to  other  computers  and  operating  systems  since 
a  minimum  of  machine  specific  routines  have  been  used. 

Running  a  simulation  with  SEPSIP  is  a  three  stage  process.  First,  an  input  file  must  be 
created  with  a  text  editor  such  as  EMACS.  The  simulation  is  then  carried  out  by  the  SEPSIP 
program  with  the  results  printed  to  an  output  file.  Finally,  the  output  file  is  printed  directly 
out  or  sent  to  a  plotting  program  such  as  NORPLOT  for  viewing. 

This  chapter  describes  how  to  create  an  input  file  and  lists  the  commands  available 
when  executing  SEPSIP.  Actual  examples  of  input  files  can  be  found  in  Chapter  5. 

3.2  Data  Entry  Conventions 

Much  effort  has  been  made  to  ease  the  task  of  creating  the  input  files  for  SEPSIP.  The 
input  files  are  very  loosely  structured  in  the  sense  that  data  need  not  be  entered  in  specific 
columns,  comments  can  be  inserted  anywhere,  other  files  can  be  referenced  through  "include" 
statements,  and  to  a  certain  degree,  the  order  of  lines  is  not  rigid. 
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3.2.1  Acceptable  Characters 

Virtually  all  of  the  printing  ASCII  characters  can  be  u.'.cd  in  naming  elements,  vari¬ 
ables,  nodes  and  subnodes.  To  prevent  confusing  the  program,  in  addition  to  "white" 
characters  (spaces,  tabs,  newlines)  the  following  characters  should  be  avoided  entirely: 

Additionally,  the  following  characters  should  not  be  used  for  the  first  character: 

*#+-0123456789 

These  characters  should  not  be  used  for  the  last  character: 

,\ 

3.2.2  Reserved  Names 

The  following  keywords  should  not  be  used  for  naming  elements,  variables,  nodes  or 
subnodes: 

end 

external 

include 

initial 

node 

simulation 

All  other  keywords  can  be  used,  but  for  clarity,  should  be  avoided. 

3.2.3  Specifying  Variables  and  Subnodes 

Variables  are  specified  in  the  following  format: 

element :  variable 

The  colon  is  used  to  delimit  the  element  name  from  the  variable  name.  Tabs  and  /  or  spaces 
between  the  element  name  and  the  colon  and  between  the  variable  name  and  colon  are 
optional. 

Subnodes  are  similarly  described: 

node : subnode 
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3.2.4  Numerical  Entries 


The  following  formats  for  entering  numbers  are  valid: 


123  integer 

-123,456  floating  point 

123e-4  exponential 

+123E3  exponential 


3.2.5  White  Characters 

Spaces  and  tabs  are  used  to  separate  data  elements.  Any  nu,  nber  and  combination  of 
spaces  and  tabs  may  be  used.  A  data  line  is  terminated  with  a  "newline"  character  (also 
known  as  a  carriage  return). 

3.2.6  Continuation  Lines 

In  general,  each  line  of  the  input  file  must,  be  shorter  than  80  characters.  This  usually 
is  not  a  problem  since  there  isn’t  very  much  information  that  must  be  included  on  one  data 
line.  Continuation  lines  are  allowed  however,  in  the  Network  Description  section.  'This 
section  requires  the  grouping  of  a  number  of  variables  together.  It  is  therefore  quite  likely 
that  more  than  80  characters  would  be  required.  Consequently,  for  this  section  alone,  a  line 
can  be  terminated  with  \  or  ...  to  indicate  the  data  continues  on  the  following  line. 

3.2.7  Case  Sensitivity 

Keywords  are  case  insensitive  (Both  upper  and  lower  case  letters  accepted),  all  other 
entries  are  case  sensitive. 

3.2.8  Comment  Lines 

Any  Line  beginning  with  a  !  or  #  is  ignored.  Hence  comment  lines  can  be  inserted 
anywhere  within  the  file  by  preceding  them  with  !  or  #.  Blank  lines  are  also  ignored. 
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3.3  Input  File  Generation 

SEPSIP  requires  an  input  file  to  describe  the  simulation.  This  file  consists  of  four 
sections:  Element  Description,  Network  Description,  Initialization,  and  Simulation 
Description.  The  input  file  can  be  created  or  edited  by  any  text  editor. 


Figure  3.3-1  Sample  SEPSIP  Input  File 

!  SEPSIP  Input  File 

t 

!  Element  Description 
device_l  elm_la 
par_l  1 . 0 
par_2  3 
end 

device  2  olm_2 
p»r_T  2 . Oe-6 
end 

!  Network  Dencription 
NETWORK 
! 

NODE  gnd 

rv : volt  <=  0.0  =  elm_la:v0  =  elm_2:vO 
ri: current  »  alm_la:iO  *  elm_2:i0 
end 

NODE  A 

v:  volt  =  alm_la:vl  =  elm_2 : vl 
i:  current  =  elm_la:il  =  elnt_2:il 
end 

!  Initialization  Section 
INITIALIZE 

elm_la  :  atate_l  37 
elm_la  :  vl  32.2 

end 

NODE  VOLTAGE  INITIALIZATION 
A: volt  100 . 0 
end 

EXTERNAL  INPOTS  INITIALIZATION 
»lm_2  :  ext_in  24 
end 

(Simulation  Section 

SIMULATION 

Display 

elm_la  :  axt_out_l 

A  :  volt 

and 

TIME_STEP  1.0a-3 
PRINT_STEP  5 . Oe-3 
TMIN  0 . 0 

TMAX  1 . 0 
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3.3.1  Organization  —  Using  INCLUDE  Files 


A  common  problem  among  many  simulation  programs  is  the  requirement  that  all  the 
necessary  information  be  contained  in  one  file.  For  large  simulations,  this  results  in  long 
input  files  that  are  difficult  to  manage  and  edit.  SEPSIP  addresses  this  problem  with  the 
include  keyword.  Outside  any  data  block  (A  data  block  begins  with  a  keyword  and  con¬ 
cludes  with  the  end  statement)  the  keyword  include  followed  by  a  filename  results  in  the 
insertion  of  the  contents  of  the  'included’  file  at  the  location  of  the  include  keyword, 
'Included’  files  may  also  contain  include  keywords.  This  feature  allows  one  to  organize 
the  input  file  in  a  number  of  ways.  Figure  3. 3. 1-1  shows  one  method  of  using  the  include 
keyword. 


Figure  3.3. 1-1  Using  the  INCLUDE  Keyword 


!  t.sll 

!  t.slm  contains  th*  slsmsnt  descriptions 
include  t.slm 

t  t . nst  contains  the  network  description 
include  t . net 

f  t . init  contains  the  initialization  seotion 
include  t . init 

!  t . aim  contains  the  simulation  section 
include  t . sim 


3.3.2  ELEMENT  Description 

The  first  section  of  the  SEPSIP  input  file  is  the  ELEMENT  Description.  This  section 
defines  the  elements  and  specifies  all  of  the  parameters  for  the  elements.  A  data  block  for 
defining  an  element  has  the  following  format: 

Figure  3.3.2- 1  ELEMENT  Description 

element_name  device_name 
parameter  value 
parameter  value 
parameter  value 
end 

Element_name  can  be  any  single  word  as  long  as  it  conforms  to  the  conventions  of 
Section  3.2.  Device_name  is  the  name  of  the  particular  device.  A  list  of  available  devices 
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can  be  obtained  by  running  SEPSIP  and  entering  dd  at  the  first  prompt.  To  obtain  more 
information  on  a  particular  device  (including  a  list  of  parameters)  enter  dD  devicejname. 
A  listing  of  all  the  device  descriptions  can  be  written  to  a  file  by  entering  dw  filename. 

When  defining  an  element,  all  of  the  parameters  must  be  specified.  An  error  is  gen¬ 
erated  whenever  an  end  statement  is  reached  and  a’i  of  the  parameters  have  not  been  provided 
with  values. 

Elements  can  be  defined  that  are  not  used  in  the  network  description.  This  allows  for 
the  creation  of  a  ’junk  box’  of  parts  that  can  be  used  when  building  and  modifying  the 
network  description.  A  warning  will  be  generated  when  an  element  is  defined  but  not  used. 
It  is  also  a  good  idea  not  to  have  too  many  ’spare  elements’  since  execution  time  will  slow 
down  somewhat. 

The  Element  Description  section  ends  when  the  keyword  network  is  encountered. 

3.3.3  NETWORK  Description 

The  keyword  network  signals  the  beginning  of  the  network  description.  This  section 
consists  of  data  blocks  that  describe  each  of  the  network  nodes.  All  of  the  lines  within  the 
data  block  (except  the  first  and  last)  describe  one  subnode.  Each  data  block  has  the  format: 

Figure  3.3.3-1  NETWORK  Description 
NODE  node  name 

subnode_ind  :  subnode_name  =  elm  :  var  =  elm  :  var 
subnode_ind  :  subnode_name  =  elm  :  var  =  elm  :  var 
END 

Node_name  and  subnode_name  once  again,  can  be  any  word  following  the  con¬ 
ventions  of  section  3.2.  Node_name  must  also  be  distinct  from  any  of  the  element  names 
as  well.  Subnode_ind  specifies  the  type  of  subnode  and  consists  of  up  to  three  characters, 
two  of  which  are  optional.  The  fonnat  of  the  subnode_ind  is: 

Reference  Indicator :  [optional]  An  r  as  the  first  character  of  subnode_ind 

specifies  that  subnode  to  be  a  reference  subnode. 
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Subnode  Type  Indicator :  [mandatory]  The  next  character  must  be  either 
an  i  or  a  v  to  specify  the  subnode  as  either  a  current  or  voltage  subnode. 

Grouping  Indicator :  [optional]  Subnodeind  can  end  with  a  digit  greater 
than  zero  to  specify  the  number  of  consecutive  subnodes  that  should  be  created. 

If  this  digit  is  greater  than  one.  then  that  number  of  consecutive  subnodes  are 
created.  The  first  subnode  will  have  subnodejname  as  its  name  and  include  all 
of  the  specified  variables.  The  following  subnodes  will  use  subnode_name 
appended  by  _b  ,  _c  ,  etc.  and  use  the  next  consecutive  input  variable  for  each 
of  the  elements.  This  feature  allows  one  to  connect  together  ’multiple  conductor 
cables’  with  one  single  entry.  Typically,  this  will  be  a  3  for  three  phase  systems. 
Subnodes  can  also  be  designated  a  reference  subnode  in  the  simulation  section  of  the 
input  file.  For  clarity  it  is  better  to  define  all  of  the  reference  subnodes  in  the  NETWORK 
section. 

In  the  special  case  of  a  Reference  Voltage  Subnode,  the  reference  voltage  may  be 
specified  immediately  following  the  subnode  name  as  demonstrated  in  figure  3.33-2.  This 
reference  voltage  value  however,  can  be  overwritten  by  an  entry  in  the  REFERENCE  block 
of  the  SIMULATION  section  of  the  input  file.  If  a  reference  voltage  subnode’s  voltage  is 
not  specified  either  in  the  NETWORK  or  the  SIMULATION  section,  it  is  set  to  a  value  of 
zero. 
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Figure  3.3.3-2  NETWORK  Description  Example 


i 

!  t . nat 

t  Norbart  H.  Doarry  12  March  1989 
t 

NETWORK 

I  Tha  following  noda  has  both  rafarano*  voltagn 
!  and  currant  aubnodaa 
! 

NODE  gnd 

rv:v  =  gan : vOn  =  load:vOn  =  matar:vQ 

ri : i  =  gan:iOn  =  load:iOn 

and 

! 

!  Tha  naxt  noda  showa  how  to  apacify  aaoh  phaaa 
!  indapandantly 

i 

NODE  A 


v:  v_a 

gan : vOa 

= 

aw:v0»  =  matar: vl 

v :  v  b 

as 

gan : vOb 

as 

aw : vOb 

v :  v  c 

= 

gan : vOc 

= 

aw : vOc 

i :  i_a 

= 

gan : iOa 

= 

sw:i0a 

i :  i~b 

« 

gan : iOb 

as 

■w: iOb 

i :  i"'c 
•nd 

gan : iOc 

= 

aw : iOc 

!  Tha  naxt  noda  ahowa  how  to  uaa  tha  grouping  indicator 
I 

NODE  B 

v3 : v  =  aw: via  =  load:vOa 
i3  :  i  =  aw:ila  =  load:iOa 
and 

! 

t  Tha  naxt  noda  ahowa  how  to  uaa  rafaranca  voltagaa  to  aat 
I  oparating  pointa 
i 

NODE  GENJREFS 

rv:fraq  =  60.0  =  gan:£raq 
rv:Vmag  =  100.0  =  gan:Vmag 
and 

3.3.4  INITIALIZATION  Description 

The  Initialization  Section  is  the  only  optional  sectional  in  the  input  file.  If  a  variable 

is  not  explicitly  initialized,  its  value  is  set  to  zero.  Therefore,  one  only  needs  to  initialize 

the  non-zero  variables.  The  following  types  of  variables  may  be  initialized: 

Input  Variables  attached  to  Current  Nodes 
Node  Voltages 
State  Variables 
External  Input  Variables 

Input  Variables  attached  to  Voltage  Nodes  may  also  be  initialized,  but  the  Node  Voltage 
initialization  will  take  precedence  and  overwrite  the  Input  Variable  initialization. 
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The  Initialization  Section  is  composed  of  three  subsections  that  may  be  entered  in  any 
order,  or  omitted  if  not  used.  These  three  subsections  are:  INITIALIZE,  EXTERNAL 
[INPUTS  INITIALIZATION],  NODE  VOLTAGE  [INITIALIZATION], 

3.3.4. 1  INITIALIZE 

The  INITIALIZE  subsection  is  used  to  initialize  input  and  state  variables  for  any 
element.  The  format  for  this  subsection  is: 

Figure  3.3.4.1-1  INITIALIZE  subsection 


INITIALIZE 

element_name  :  variable_name  value 
element_name  :  variabie_name  value 
elementname  :  variable_name  value 
end 

Variabie_name  can  be  the  name  of  either  a  state  variable  or  the  name  of  an  input 
variable.  For  state  variables,  value  becomes  the  old  state  variable  for  the  first  time 
increment.  For  input  variables,  value  is  the  first  guess  used  for  input  variables  attached 
to  current  subnodes,  If  an  input  variable  is  attached  to  a  voltage  subnode,  value  is  ignored. 

The  INITIALIZE  subsection  ends  when  the  keyword  end  is  encountered. 

3.3.4.2  EXTERNAL  [INPUTS  INITIALIZATION] 

The  External  Inputs  Initialization  subsection  begins  with  either  the  keywords 
EXTERNAL  or  EXTERNAL  INPUTS  INITIALIZATION.  Its  purpose  is  to  provide 
the  default  values  for  the  external  input  variables.  The  default  values  set  in  this  subsection 
can  be  overwritten  by  entries  in  the  EXTERNAL  INPUTS  subsection  of  the  SIMU¬ 
LATION  section. 

Figure  3.3.4.2-1  EXTERNAL  INPUTS  INITIALIZATION  Subsection 

EXTERNAL  INPUTS  INITIALIZATION 

element  name  :  externalinputname  value 
element  name  :  external  input  name  value 

element  name  :  e\(ernai_input_name  value 
end 
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3.3.43  NODE  VOLTAGE  [INITIALIZATION] 

The  Node  Voltage  Initialization  subsection  begins  with  either  the  keywords  NODE 
VOLTAGE  or  NODE  VOLTAGE  INITIALIZATION.  Its  purpose  is  to  provide  the 
initial  guesses  for  all  the  input  variables  attached  to  a  voltage  subnode.  The  subsection 
ends  when  the  keyword  END  is  encountered. 

Figure  3.3.4.3-1  NODE  VOLTAGE  INITIALIZATION  Subsection 

NODE  VOLTAGE  INITIALIZATION 
nodename  :  subnodename  value 
node_name  :  subnode_name  value 
node  name  :  subnode  name  value 
end 


3.3.5  SIMULATION  Description 


The  SIMULATION  section  begins  with  the  keyword  SIMULATION  and  continues 
until  the  end  of  the  input  file  is  reached.  The  Simulation  section  details  the  manner  in  which 
a  simulation  is  carried  out.  The  following  keywords  can  be  included  in  the  simulation 
section: 


CONVERGE 

DELTA 

DELTAMIN 

DISPLAY 

EXTERNAL  INPUTS 

MAX  ITERATION 

PRINT  STEP 

REFERENCE 

TIMESTEP 

TMAX 

TMIN 


33.5.1  CONVERGE 


Format:  CONVERGE  value 
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Value  is  the  maximum  mean  square  error  of  ail  the  implicit  variables  allowed  for  a 
balanced  system.  Note  that  since  CONVERGE  is  applied  to  the  average  of  the  implicit 
variables,  any  single  implicit  variable  may  have  a  square  magnitude  considerably  larger 
than  value. 

3.3.5. 2  DELTA 

f  ormat:  DELTA  value 

Value  is  the  fractional  amount  an  input  variable  is  changed  when  the  network  cal¬ 
culates  the  Jacobian  matrix  of  an  element  using  the  secant  method.  The  input  variable  are 
multiplied  by  (1  +  value)  and  (1  -  value)  and  if  the  difference  between  the  two  resulting 
numbers  is  greater  than  twice  DELTA_MIN,  they  are  used  to  recalculate  the  implicit 
variables.  The  differences  between  the  implicit  variables  divided  by  the  differences 
between  the  two  values  of  the  input  variables  provide  the  column  of  the  element  Jacobian 
matrix  corresponding  to  that  input  variable.  DELTA  is  only  significant  if  at  least  one  of 
the  elements  used  does  not  calculate  the  Jacobian  matrix  within  its  defining  function. 

3.3.5 .3  DELTA  MIN 

Format:  DELTA_MIN  value 

DELTA_MIN  is  used  in  conjunction  with  DELTA.  If  when  calculating  an  element 
Jacobian  matrix  by  the  secant  method,  the  difference  between  the  two  offset  input  variables 
is  greater  than  twice  DELTA_MIN,  then  DELTA_MIN  is  added  and  subtracted  from  the 
input  variable  for  the  purpose  of  calculating  the  partial  derivative. 

3. 3.5.4  DISPLAY 

Format: 

DISPLAY 

element_name  :  external_output_variable_name 
element_name  :  external_output_variabIe_name 

node_name  :  voltage_subnode_name 
node_name  :  voltage_subnode_name 
end 
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DISPLAY  specifies  which  variables  are  written  to  the  screen  or  to  the  specified  file 
when  the  simulation  is  conducted.  Only  external  output  variables  and  voltage  subnodes 
can  be  displayed.  PRINT_STEP  specifies  how  often  the  variables  are  displayed. 

3.3 .5.5  EXTERNAL  INPUTS 

Format: 

EXTERNAL  INPUT 

elementjrtame  :  external_input_variable_name  value  time 
element_name  :  external_input_variable_name  value  time 
element  name  :  external_input_variable_name  value  time 
end 

EXTERNAL  INPUT  provides  the  information  needed  to  produce  an  external  input 
queue  that  tells  the  simulation  when  the  value  of  an  external  input  value  should  be  changed. 
Time  is  the  simulation  time  at  which  the  specified  external  input  variable  should  be  set  to 
value. 

3.3.5.6  MAX  ITERATION 

Format:  MAX  ITERATION  value 

Value  is  the  maximum  number  of  iterations  that  are  performed  during  any  single 
time  interval  in  an  attempt  to  balance  the  system.  If  the  system  can  not  be  balanced  in 
fewer  iterations,  an  error  message  is  printed  and  the  simulation  is  halted. 

3.3.5. 7  PRINT  STEP 

Fonnat:  PRINT_STEP  value 

Value  specifies  how  often  the  variables  listed  in  DISPLAY  are  printed. 

3.3.5.8  REFERENCE 

Format: 

REFERENCE 

v  :  node_name  :  voltage_subnode_name  value 
v  :  node_name  :  voltage_subnode_name  value 
i  :  node_name  :  current_subnode_name 
end 

The  REFERENCE  subsection  can  declare  subnodes  defined  in  the  NETWORK 
section  to  be  reference  subnodes  (whether  or  not  they  were  defined  previously  to  be  ref- 


erence  subnodes  in  the  NETWORK  section).  Since  the  Simulation  section  may  be 
modified  after  an  input  file  has  been  loaded  into  SEPSIP,  this  section  can  also  be  used  to 
vary  the  voltage  of  a  reference  voltage  subnode  between  simulations.  Value  overrides  the 
default  value  provided  in  the  NETWORK  description  section. 

3.3.5.9  TIME  STEP 

Format:  TIME_STEP  value 

Value  is  the  time  step  used  in  calculating  the  simulation. 

3.3.5.10  TMIN 

Format:  TMIN  value 

Value  is  the  initial  value  that  the  time  counter  is  initialized  to.  After  each  time  the 
system  is  balanced,  the  time  counter  is  incremented  by  the  TIME_STEP. 

3.3.5.11  TMAX 

Format:  TMAX  value 

Value  is  the  largest  value  that  the  time  counter  can  take  on.  If  the  time  counter 
exceeds  value,  the  simulation  is  successfully  concluded  and  control  passes  back  to  the 
main  menu  of  SEPSIP. 
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3.4  Running  the  Simulation 

3.4.1  Starting  SEPSIP 

The  method  for  executing  the  SEPSIP  program  depends  on  the  operating  system  being 
used.  On  MIT's  Project  ATHENA,  the  following  procedures  should  be  used: 

athena9<  attach  13.411 

athena9r  /mit/13.411/sepsip/sepsip 

or 

athena%  attach  13.411 

ather.a%  /mit/13.411/sepsip/sepsip  input_filename 

The  program  starts  by  printing  a  welcome  message  followed  by  the  version  number 
and  date.  If  input_filename  is  specified,  it  is  loaded.  Any  errors  detected  are  listed  as  well 
as  the  opening  of  any  include  files.  SEPSIP  then  enters  the  main  menu  and  prompts  for  the 
first  command. 

3.4.2  Command  Entry  Conventions 
3.4.2. 1  SEPSIP  Menus 

SEPSIP  is  a  menu  oriented  program  consisting  of  one  main  menu  and  several  sub¬ 
menus.  The  menus  are  organized  in  two  columns:  The  first  contains  single  characters 
used  to  execute  the  commands  listed  in  the  second  column.  After  the  menu  is  displayed, 
the  user  can  enter  the  character  corresponding  to  the  desired  command  followed  by  a 
carriage  re* urn. 

Several  of  the  menus  will  have  a  variable  number  of  options  depending  on  the  state 
of  the  simulation.  If  a  valid  input  file  has  not  been  loaded  for  example,  the  main  menu 
will  not  have  the  Conduct  Simulation  or  Continue  commands  available  since  they  would 
be  meaningless. 

The  Conduct  Simulation  (option  s)  and  Continue  (option  c)  commands  from  the 
main  menu  can  be  followed  by  an  output  filename.  If  a  filename  is  specified,  output  from 
the  simulation  is  redirected  from  the  screen  to  the  specified  file. 
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3. 4.2.2  Concatenating  Commands 

SEPSIP  allows  one  to  execute  an  option  in  a  submenu  directly  from  the  main  menu 
by  entering  the  character  that  executes  the  submenu  followed  by  the  desired  character  from 
that  submenu.  These  two  characters  can  be  separated  by  spaces  or  tabs  and  can  also  be 
followed  by  whatever  input  text  is  required  by  the  selected  command. 

Examples: 

dd  (displays  device  summary) 

fc  /mit/yourname  (changes  the  working  directory) 

u  p  t.plot  (executes  plotting  program  with  argument  t.plot) 

3.4.2.3  Input  Filename  Specification 

In  several  of  the  options,  the  user  is  prompted  for  an  input  filename.  Any  existing 
file  can  be  entered,  including  a  path  specification  if  required.  If  a  default  filename  is 
offered,  a  carriage  return  will  select  the  default.  If  no  default  filename  is  presented,  a 
carriage  return  will  terminate  the  command.  Should  SEPSIP  be  unable  to  open  the  file, 
another  filename  is  prompted  for.  Entering  ?  as  a  filename  results  in  the  listing  of  the 
current  directory'.  A  q  terminates  the  command. 

3.4.2.4  Output  Filename  Specification 

An  Output  filename  can  be  specified  for  several  commands.  Any  filename  recognized 
as  legal  by  the  operating  system  may  be  used.  If  a  default  filename  is  offered,  a  carriage 
return  will  select  the  default.  If  no  default  filename  is  presented,  or  if  the  filename  stdout 
is  entered,  a  carriage  return  will  result  in  the  file  being  listed  on  the  screen.  If  for  some 
reason.  SEPSIP  is  unable  to  open  the  file,  another  filename  is  prompted  for.  Entering  ? 
as  a  filename  results  in  the  listing  of  the  current  directory.  A  q  terminates  the  command. 
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3.4.3  Command  Summary 

This  section  lists  all  the  commands  available  in  SEPSIP.  A  more  detailed  explanation 
of  the  commands  is  provided  in  the  following  sections. 

c  [file]  Continue  simulation 

d  Switch  to  Display  Data  menu 

dc  [dir]  Change  Working  Directory 

dd  Display  Device  Summary 

dD  Display  Device  Data 

de  Display  Element  Summary 

dE  Display  Element  Data 

dn  Display  Network  Summary 

dq  Quit  Display  Data  menu 

dw  [file]  Write  Device  Data  File 

e  Switch  to  Edit  Simulation  Parameters  Menu 

ed  Switch  to  Edit  Display  Variable  list  Menu 

eda  Add  Variable  to  Display  Variable  list 

edd  Delete  Variable  from  Display  Variable  list 

edq  Quit  Edit  Display  Variable  list  Menu 

ej  Edit  Jacobian  Parameters 

eq  Quit  Edit  Simulation  Parameters  Menu 

er  Edit  Reference  Voltage  Subnode  Voltages 

et  Edit  Time  Parameters 

f  Switch  to  File  Options  Menu 

fd  [file]  Dump  Simulation  State 

fi  [file]  Save  INITIALIZATION  Section 

D  [file]  Load  INITIALIZATION  Section 

fq  Quit  File  Options  Menu 

fs  [file]  Save  SIMULATION  Section 

fS  [file]  Load  SIMULATION  Section 

q  Quit :  Terminate  SEPSIP  program 

s  [file]  Conduct  Simulation 

u  Switch  to  Utility  Menu 

ue  [file]  Execute  EMACS  text  editor 

up  [file]  Execute  Norplot  Plotting  Package 

u?  Display  Directory 

u%  [cmd]  Execute  System  Command 

u+  Perform  Screendump  to  the  default  printer 

3.4.4  Main  Menu 

This  section  describes  all  the  commands  available  in  SEPSIP.  For  each  command, 
the  fonnat  for  executing  it  from  the  main  menu  is  presented  along  with  a  description  of  the 
command.  For  executing  a  command  within  a  submenu,  the  first  letter  should  be  omitted. 


-59- 


3.4.4. 1  c  Continue 


Format: 

c 

c  filename 


The  Continue  command  is  only  available  if  a  valid  input  file  has  been  loaded  and  a 
simulation  has  already  been  conducted.  Its  purpose  is  to  allow  the  simulation  to  continue 
without  reinitializing  any  of  the  variables.  To  use  this  command  though,  tmax  must  be 
changed  to  a  higher  value  that  corresponds  to  the  new  desired  ending  time. 

If  Continue  is  invoked  without  a  filename,  the  results  of  the  simulation  are  displayed 
on  the  screen,  otherwise  the  results  are  written  to  the  specified  file. 


3.4.4.2  d  Display  Data 

Format: 

d 

d  command 


Display  Data  presents  a  submenu  with  the  following  options: 


3.4.4.2.1  d  c  Change  Working  Directory 


Format: 

dc 

dc  directory 


This  command  changes  the  working  directory  for  specifying  both  input  and  output 
files.  If  a  directory  name  is  not  specified  on  the  command  line,  the  user  is  prompted  for 
one.  For  systems  operating  under  the  UNIX  operating  system,  this  is  the  only  method 
available  since  a  cd  command  executed  as  a  system  call  will  not  work.1 


3.4.4.2.2  d  d  Display  Device  Summary 

Format: 

dd 


Display  Device  Summary  lists  the  names  of  all  the  available  devices. 


1  Under  UNIX,  when  a  system  call  is  made  from  a  program,  a  new  shell  is  created  for  the 
specified  command  to  be  executed  in.  When  the  command  terminates,  the  shell  disappears. 
Therefore,  if  a  cd  command  is  executed,  it  will  change  the  directory  in  the  new  shell  and 
then  terminate.  The  new  shell  will  immediately  disappear  and  control  will  pass  back  to  the 
old  shell  whose  working  directory  was  never  altered. 
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3.4.4.2.3  d  D  Display  Device  Data 


Format: 

dD 

dD  device  name 


Display  Device  Data  provides  detailed  information  about  a  particular  device.  If 
device_name  is  not  specified,  it  will  be  prompted  for.  All  of  the  variable  names  associated 
with  device  name  are  listed. 


3.4.4.2.4  d  e  Display  Element  Summary 

Format: 

de 


Display  Element  Summary  is  only  available  if  a  valid  input  file  has  been  loaded. 
All  of  the  defined  elements  are  listed  along  with  which  devices  they  are  associated  with. 
If  an  element  is  not  used  in  the  network  description,  its  entry  is  appended  with 


"***  Not  Used  ***”. 


3.4.4.2.5  d  E  Display  Element  Data 


Format: 

dE 

dE  element  name 


Display  Element  Data  is  only  available  if  a  valid  input  file  has  been  loaded.  If 
element_name  is  not  specified,  it  is  prompted  for.  All  of  the  variables  associated  with 
element  name  and  their  values  are  listed. 


3.4.4.2.6  d  n  Display  Network  Summary 

Format: 

dn 


Display  Network  Summary  is  only  available  if  a  valid  input  file  has  been  loaded. 
For  each  node,  the  constitutive  subnodes  and  their  attached  variables  are  displayed.  After 
all  the  data  for  a  node  has  been  presented,  the  user  is  prompted  to  enter  a  carriage  return 
to  continue.  If  a  q  is  entered  instead,  the  command  is  terminated.  A  b  will  result  in  the 
previous  node  being  listed. 


3.4.4.2.7  d  q  Quit 

Format: 

dq 


Quit  returns  control  back  to  the  main  menu. 


3.4.4.2.S  d  w  Write  Device  Data  File 


Format: 

dw 

dw  device  data  filename 


Write  Device  Data  File  prints  out  all  of  the  device  data  for  all  of  the  devices.  If 
device_data_filename  is  not  specified,  the  user  is  prompted  for  it.  For  a  particular  device, 
this  command  presents  all  the  same  information  as  Display  Device  Data 

3.4.4.3  e  Edit  Simulation  Parameters 

Format: 

e 

e  command 


Edit  Simulation  Parameters  presents  a  submenu  for  editing  data  from  the  simulation 
section  of  the  input  file.  This  command  is  only  available  if  a  valid  input  file  has  been 
loaded. 


-64  - 


3.4.4.3.1  e  d  Kdit  Display  Variables 


Format: 

ed 

ed  command 


Edit  Display  Variables  presents  a  submenu  for  adding  and  subtracting  variables 
from  the  display  variable  list.  In  addition  to  the  submenu,  all  of  the  variables  presently 
on  the  list  are  displayed.  The  values  of  the  variables  on  this  list  are  displayed  during  the 
simulation  in  increments  of  print_step  as  set  in  the  input  file  or  by  Edit  Time  Parameters. 


3.4.4.3.1.1  a  Add  Display  Variable 

Format: 

eda 

eda  elementname  :  externaloutputvariable 
eda  element  name  :  externalinputvariable 
eda  node  name  :  voltage_subnode_name 


Add  Display  Variable  adds  a  variable  to  the  display  variable  list.  External  Input, 
External  Output,  and  Voltage  Subnodes  may  all  be  specified. 
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3.4.4.3.1.2  d  Delete  Display  Variable 


Format: 

edd 

edd  element  nai  e  :  external_output_variable 
edd  elementname  :  externaiinputvariable 
edd  node_name  :  voltage_subnode_name 


Delete  Display  Variable  deletes  a  variable  presently  on  the  display  variable  list. 


3.4.4.3.1.3  q  Quit 

Format: 

edq 


Quit  returns  to  the  Edit  Simulation  Parameters  submenu 
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3.4.4.3.2  e  j  Edit  Jacobian  Parameters 


Format: 

edj 


Edit  Jacobian  Parameters  allows  the  user  to  change  the  following  simulation 
parameters: 

CONVERGE 
MAXJTERATION 
DELTA 
DELTA JMIN 

The  user  is  prompted  to  enter  a  new  value  for  each  of  these  parameters.  If  a  carriage 
return  alone  is  entered,  the  default  value  is  used.  If  a  q  is  entered,  the  command  is 
terminated.  A  b  allows  the  previous  variable  to  be  changed. 


3.4.4.3.3  e  q  Quit 

Format: 

eq 


Quit  returns  control  back  to  the  main  menu. 
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3.4.4.3.4  0  r  Edit  Reference  Voltage  Subnode 


format: 

ci 

or  node_nume  :  reference  _voltage_subnode_name 
er  node  name  :  reforence_v<>ttage_sul>node_name  value 


Edit  Reference  Voltage  Subnode  allows  the  user  to  change  the  value  a  reference 
vohage  suhnocie  is  set  to.  If  the  command  is  executed  without  specifying  the  subnnde,  a 
list  of  the  reterence  voltage  subnodes  is  provided  before  the  user  is  prompted  for  the 
subnode  name. 

3. 4.4. 3.5  e  t  Edit  Time  Parameters 

Format: 

et 


Edit  Time  Parameters  allows  the  user  to  change  the  following  simulation 
parameters: 

TIMESTEP 

TMIN 

TMAX 

PRINTSTEP 

The  user  is  prompted  to  enter  a  new  value  for  each  of  these  parameters.  If  a  carriage 
return  alone  is  entered,  the  default  value  is  used.  If  a  q  is  entered,  the  command  is 
terminated.  A  b  allows  the  previous  variable  to  be  changed. 
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3.4.4.4  f  File  Options 


Format: 

f 

f  command 


E 


File  Options  presents  a  submenu  for  reading  and  writing  several  different  types  of 


files. 


3.4.4.4.1  f  d  Dump  Simulation  State 

Format: 

fd 

fd  filename 


Dump  Simulation  State  prints  to  a  file,  the  entire  state  of  the  simulation.  Every 
variable  for  every  element  is  listed  along  with  the  system  Jacobian  matrix  and  associated 
variables.  While  the  file  produced  by  this  command  may  become  very  large,  it  is  often 
the  only  way  to  find  the  cause  of  a  simulation’s  failure  to  converge. 
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3.4.4.4.2  f  i  Save  INITIALIZATION  Section 


Format: 

fi 

fi  filename 


Save  INITIALIZATION  Section  writes  to  a  file,  all  of  the  current  values  of  the 
input  variables,  state  variables,  external  input  variables,  and  voltage  subnode  volt¬ 
ages.  This  file  can  then  be  included  in  another  input  file  to  specify  a  starting  point  for 
further  simulations.  This  command  allows  one  to  run  a  simulation  until  steady  state  has 
been  achieved,  save  the  initialization  section,  then  conduct  simulations  to  study  the  effects 
of  a  disturbance  on  the  steady  state  solution. 

3.4.4.43  f  I  Load  INITIALIZATION  Section 

Format: 

fi 

fi  filename 


Load  INDTIALIZATION  Section  loads  from  a  file,  the  initial  values  of  the  input 
variables,  state  variables,  external  input  variables,  and  voltage  subnode  voltages. 
The  file  must  conform  to  the  format  specified  in  section  3.3.4.  The  easiest  way  to  create 
this  file  is  to  use  or  edit  a  file  created  by  the  Save  INITIALIZATION  Section  command. 


3.4.4.4.4  f  s  Save  SIMULATION  Section 


Format: 

fs 

fs  filename 


Save  SIMULATION  Section  writes  to  a  file,  the  SIMULATION  Description 
section  of  the  input  file  as  described  in  section  3.3.5.  If  stdout  is  used  as  a  filename,  the 
SIMULATION  Description  section  is  listed  on  the  screen.  This  is  a  fast  way  of  seeing 
all  the  simulation  variables  at  once. 


3A4.4.5  f  S  Load  SIMULATION  Section 

Format: 

fS 

fS  filename 


Load  SIMULATION  Section  reads  from  a  file,  the  SIMULATION  Description 
section  of  the  input  file  as  described  in  section  3.3.5.  Files  created  with  the  Save  SIM¬ 
ULATION  Section  command  can  be  directly  loaded  with  this  command. 


3.4.4.S  q  Quit 

Format: 

q 


Quit  results  in  the  termination  of  SEPSIP.  Control  is  passed  back  to  the  operating 
system. 
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3.4.4.6  s  Conduct  Simulation 


Format: 

s 

s  filename 


Conduct  Simulation  starts  the  simulation.  If  a  filename  is  not  specified,  the  values 
of  all  of  the  variables  on  the  display  variables  list  are  printed  to  the  screen.  If  a  filename 
is  specified,  the  values  of  the  variables  are  printed  to  the  designated  file.  A  period  (.)  is 
printed  on  the  screen  every’  time  a  line  is  printed  to  the  file.  This  allows  one  to  see  that  the 
simulation  is  actually  proceeding  and  the  program  is  not  stuck  in  an  infinite  loop. 


3.4.4.7u  Utilities 

Format: 

u 

u  command 


Utilities  presents  a  submenu  that  is  fundamentally  different  from  the  other  menus  in 
that  it  is  entirely  user  defined.  The  file  sepsip_util.menu  contains  all  the  data  required  to 
create  and  execute  a  menu.  Appendix  D  describes  how  to  edit  this  file  to  add  or  delete 
menu  items.  The  following  commands  are  presently  implemented  on  MIT’s  Project 
ATHENA. 
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* 


3.4.4.7.1  u  e  Editor  ->  emacs 

Format: 

ue 

ue  filename 


This  command  executes  the  emacs  text  div  r. 


3.4.4.7.2  u  p  Plotting  ->  Norplot 

Format: 

up 

up  filename 


Norplot  is  a  simple  X-Window  oriented  plotting  package  that  allows  for  the  input 
file  to  have  multiple  columns  of  data. 


3.4.4.7.3  u  ?  List  Directory 

Format: 

u? 

u?  directory _path 


This  command  lists  the  current  directory  or  the  directory  specified. 


-  73  - 


3.4.4.7.4  u  %  Execute  System  Command 


Format: 

u% 

u%  command 


This  command  allows  for  any  system  command  to  be  executed  (with  the  exception 
of  cd  in  UNIX). 


3.4.4.7.S  u  +  Screendump  to  default  printer 

Format: 

u+ 


u+  -h 

u+  -Pprinter 
u+  -Pprinter  -h 


This  commmand  produces  hardcopy  of  an  X-Window  on  the  default  printer  or  on 
the  primer  specified  by  the  -P  option.  The  -h  option  suppresses  the  printing  of  the  header 
page. 


3.5  Special  Considerations 

3.5.1  Designing  the  Network 

Intelligently  designing  the  network  can  improve  the  quality  and  numerical  stability  of 
the  simulations  perfonned.  One  must  always  remember  that  the  mathematical  repre¬ 
sentations  for  devices  like  inductors  and  capacitors  are  only  idealized  approximations  of 
the  physical  devices.  Consequently,  while  we  can  physically  stop  the  current  in  an  inductor 
instantaneously,  a  simulation  using  an  ideal  inductor  will  fail  because  the  voltage  drop  across 
it  will  become  infinite.  Here  are  a  few  techniques  that  can  eliminate  many  of  the  problems 
of  this  sort: 

*  All  inductors  should  have  a  parallel  resistance  to  provide  a  path  for  the  flyback  current  to 

flow  and  thereby  limit  the  maximum  voltage  drop  across  the  inductor 

*  Similarly,  all  capacitors  should  have  a  series  resistance  to  limit  the  maximum  current  flow. 

*  A  node  connecting  two  switches  in  series  should  also  have  a  resistance  going  to  ground 

(or  across  one  of  the  switches)  to  prevent  a  floating  voltage. 

3.5.2  Selection  of  Time  Increments 


Choosing  an  appropriate  time  increment  is  very  important  for  ensuring  an  accurate 
simulation.  If  trapezoidal  integration  is  used,  a  time  increment  that  is  much  greater  than 
the  associated  time  consant  for  a  variable  will  result  in  that  variable  oscillating  and  probably 
going  unstable.  For  this  case,  the  Euler  Backward  method  works  better  since  the  mode  is 
assumed  to  have  been  driven  to  zero  for  the  entire  time  increment. 


dx  x  A  n 
A  =0 

dt  x 


Trapezoidal  Integration 


V  “  XM  +  [  9  J  I  'x  J  ^  +  X°'^  +  A  ^  ^  ~  0 

dt » x 

x  +  xold  +  2A  x  ~  0 
x~-xm-2At 

Euler  Backwards 

[x  \ 

x  -xM  +  dt  -+A 

dt » t 

x  ~  -xA 

If  the  time  step  is  made  extremely  small,  the  amount  of  computer  time  required  to 
conduct  the  simulation  becomes  intolerably  long  with  the  undesired  side  effect  of  a  loss  of 
accuracy.  When  the  time  step  is  extremely  small,  round  off  error  in  the  numerical  calculations 
become  a  significant  proportion  of  the  corrections  applied  to  the  input  variables.  Over  time, 
these  errors  can  grow  and  give  incorrect  results. 

When  making  the  time  step  smaller,  the  CONVERGE  limit  must  also  be  decreased. 
Otherwise,  the  solution  for  the  first  time  increment  when  applied  to  the  second  time 
increment  will  result  in  an  implicit  error  that  remains  within  the  CONVERGE  limit.  Thus, 
the  result  of  the  first  time  increment  becomes  the  solution  for  the  second  time  increment. 
This  process  is  repeated  for  the  following  time  increments  with  the  net  result  that  none  of 
the  variables  deviate  from  their  initial  values. 

For  systems  of  nonlinear  equations,  choosing  the  optimal  time  increment  is  not  easy 
to  do  in  the  general  case.  Usually  one  can  get  an  acceptable  value  by  trying  to  identify  the 
fastest  mode  and  using  a  time  increment  somewhat  smaller  than  the  associated  time  constant. 
Some  experimentation  is  usually  required  to  determine  if  a  given  choice  is  appropriate. 
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3.5.3  Using  the  SIMULATION  File 

Since  virtually  all  of  the  SIMULATION  Section  of  the  input  file  can  be  edited  from 
within  SEPSIP.  it  is  a  good  idea  to  make  the  entire  SIMULATION  section  an  include  file. 
This  allows  one  to  directly  save  any  edited  parameters  with  the  Save  SIMULATION 
Section  (fs)  command.  The  next  time  the  input  file  is  loaded,  all  of  the  edited  simulation 
parameters  will  also  be  loaded. 

3.5.4  Using  the  INITIAL  File 

Properly  using  INITIAL  files  can  greatly  reduce  the  computational  time  required  to 
conduct  a  simulation  under  certain  circumstances.  A  typical  problem  may  be  to  study  the 
transient  response  of  a  system  originally  in  a  steady  state  condition  that  experiences  some 
disturbance.  Achieving  the  initial  steady  state  condition  may  require  a  lot  of  simulation 
time  due  to  slow  "start  up"  time  constants.  To  eliminate  the  overhead  time  required  by  the 
system  to  achieve  steady  state  in  each  simulation,  the  IN  Tl' UAL  file  allows  one  to  conduct 
an  undisturbed  simulation  once,  save  the  steady  state  solution  in  the  INITIAL  file,  and  use 
that  INITIAL  file  as  the  starting  point  for  all  further  simulation  work. 

3.6  Adding  DEVICE  Descriptions 

Adding  a  Device  description  to  the  list  of  available  devices  requires  a  fair  amount  of 
effort.  One  or  mere  functions  must  be  written  and  compiled  in  the  C  programming  language 
and  linked  with  the  other  SEPSIP  routines.  Additionally,  one  include  file  (penner.h)  and  a 
device  data  file  must  be  edited.  Details  for  this  procedure  are  contained  in  Appendix  B. 
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CHAPTER  4 


DEVELOPMENT  OF  SHIPBOARD 
ELECTRICAL  COMPONENT  MODELS 
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4.1  Transmission  Line  Model 

The  transmission  line  model  included  in  SEPSIP  consists  of  a  series  combination  of  a 
resistor  (R)  and  an  inductor  (L).  The  inductor  also  has  another  resistor  (R,)  in  parallel  with 
it  to  account  for  leakage  resistance.  Ri  also  helps  numerically  when  the  transmission  line  is 
attached  to  a  switch  that  opens.  If  R,  were  not  included  and  the  inductor  current  were  forced 
to  zero  immediately,  the  voltage  drop  across  the  inductor  would  be  infinite.  Rj  provides  a 
path  for  the  inductor  current  to  flow  and  thereby  allow  a  finite  voltage  drop.  Since  all  physical 
inductors  have  an  associated  leakage  resistance,  the  inclusion  of  R,  better  reflects  the  actual 
transmission  line  characteristics. 

Figure  4.1-1  Transmission  Line 


R, 
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If  the  transmission  line  is  excited  with  a  sinusoidal  current,  the  effective  resistance  and 
inductance  of  the  transmission  line  is  given  by: 


( 


R,fl  ~  R  +Ri 


1 


( 


L.„  =  L 


.  .  j  I  +  1 
1 


[1] 


1  +(  -  '2  , 


The  Model  contains  the  following  definitions 
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Parameters 

Resistance 

Inductance 

Parallel  Resistance  for  Inductor 


Input  Variables 


Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 

Terminal 


0  Phase 
0  Phase 
0  Phase 
1  Phase 
1  Phase 
1  Phaxe 
0  Phase 
0  Phase 
0  Phase 
1  Phase 
1  Phase 
1  Phase 


A  Voltage 
B  Voltage 
C  Voltage 
A  Voltage 
B  Voltage 
C  Voltage 
A  Current 
B  Current 
C  Current 
A  Current 
B  Current 
C  Current 


State  Variables 


Phase  A  Voltage 
Phase  B  Voltage 
Phase  C  Voltage 
Phase  A  Current 
Phase  B  Current 
Phase  C  Current 

Implicit  Variables 

Phase  A  Integrator 
Phase  B  Integrator 
Phase  C  Integrator 

Equations 


vb  =  v, b  ~  vofc 


Vc  =  Vic  “  V0f 


4  =  2 O'1- “'a.) 


4  =  a  Oih  -  4,,) 


4  ~  2  (4r  -  4c) 
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If  R,  and  L  lire  both  not  zero,  the  following  equations  hold: 

VU~(Va-W 
VL»  =  Oi  "  ‘hR  ) 

Vz,  =  O',  -  iJR) 


if  R,  or  L  are  either  zero,  the  following  equations  are  used: 

h  =  va  -  iaR 

h  =  ''t,  ~  hR 
K  =  vc  -  icR 


[9] 

[10] 

[H] 

[12] 

[13] 

[14] 

[15] 

[16] 

[17] 

[18] 

[19] 

[20] 


Comments 

The  implementation  of  the  transmission  line  model  is  contained  in  the  file  f_t_Iine_3p.c 
listed  in  APPENDIX  C. 
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4..1  Kt'sisi l\ <'  -  Knutiw  Load  Model 


I  lie  icmmiu'  te.tcmr  load  model  included  in  S  KPS  IP  consists  of  a  three  phase  wye 
ci'iinci  led  imped.ituo  1  ach  phase  ot  tlte  load  consists  of  a  resistor  (R,)  in  parallel  with  a 
senes ,  m nlnn.it ion  ot  anothet  t e  .  on  <  R  i  ami  an  inductance  (1.1.  R,  helps  unmet icallv  when 
the  load  is  an.uhed  to  a  switch  l-\  ptoudmg  a  path  tor  the  inductive  current  to  flow  and 
theielw  pievenl  the  \  oh. ter  di op  across  the  inductor  becoming  infinite, 

1  i^ m  e  4.2-1  Resistin'  Reactive  I.oud  Model 
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Purumeters 

Resistance  (.ohms) 
Inductance  (hem ies ) 
I'atallel  Resistance  (ohiusi 

Input  \  at  iahles 

Phase  A  Tenninal  Voltage 
Phase  B  Tenninal  Voltage 
Phase  C  Tenninal  Voltage 
(’enter  Point  Tenninal  Voltage 
Phase  A  Current 
Phase  B  I’m  rent 
Phase  C  Current 
( ’enter  Point  Current 

Mate  S  at  iahles 

Pnasc  A  Voltage 
Phase  B  Voltage 
Phase  ( ’  Voltage 


s: 


i, 

h. 


I, 


MHli 


Phase  A  Current 
Phase  B  Current 
Phase  C  Current 

Implicit  Variables 

Phase  A  Integrator 
Phase  B  Integrator 
Phase  C  Integrator 
‘sum  of  Currents 

Defining 'ions 


hu  =  h.„  +  h. 

ID 

hs  ~  C,  +  C  +  ',n 

i:i 

C  ~  hin  ^  Ci  his 

13) 

'  ii  ""  '  (U  ~  '  (In 

Ml 

lS  ~  '(IS  ~  ''(in 

1*1 

=  C  “  ''(„, 

[Cl 

*«k  —  hu 

|7| 

'-=:  2 

his  1  IS 

•» =  2 

|H| 

hi,  —  hi 

IM 

'  U  2 

~  hvi  h  hi;,  "h  hi,  “h  hi.i 

1 101 

0  the  following  Equations  tue  used: 

R,R 

R  = 

'  Rx+R 

HD 

/,  -  ''a  -  h|A\. 

|i:i 

/s  =: 's  -  is/'’. 

|13| 

/,  ■•••  e  -  h  A*. 

INI 

Otherwise,  the  following  Equations  are  used: 


S.t 


L  J, 


J  i  ] 

Z.  V',  J=v  -//? 

dt 


Ai  E  E  !>/«/ 


'  ■!  '  a  ||  U  I  tit  |(  'll  'u 


,  .  .  'V  -  'V ,;./  (<lr)vh  +  yhM 

n  —  i  -A’'/. 

A  ,  \  L  J{ 


/  =  /.  -  /. 


(  cU\(  \\  +  \\ 


Comments 

The  implementation  of  the  resistive  -  reactive  load  model  is  contained  in  the  file 


rl  wve.c  listed  in  APPENDIX  C. 


4.3  Synchronous  Machine  Model 

Synchronous  machines  arc  used  as  both  generators  and  motors  onboard  ships.  The 
synchronous  machine  device  included  in  SEPSIP  is  based  on  the  shielding  constraint  model 
provided  in  1  lb|.  This  model  uses  the  standard  per  unit  parameters  normally  provided  by 
generator  manufacturers.  All  calculations  are  performed  in  the  per  unit  system  and  employ 
Park 's  transformation  to  remove  many  of  the  time  dependencies  and  thereby  improve  the 
numerical  solution.1 

Figure  4.3-1  Synchronous  Machine  Model 
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Parameters 

Synchronous  Reactance  (PU) 
Negative  Sequence  Reactance  (PU) 
Transient  Reactance  (PU) 

D-axis  Subtransient  Reactance  (PU) 
Q-axis  Subiransient  Reactance  (PU) 
Armature  Leakage  Reactance  (PU) 
Transient  Open  Circuit  Time  Constant  (sec) 
D-axis  Subtransient  OC  Time  Constant  (sec) 
Q-axis  Subtransient  OC  Time  Constant  (sec) 
Armature  Time  Constant 
Field  Current  for  no  load  rated  voltage  (amps) 
Inertia  Constant  (sec) 

Pole  Pairs 


1  Park's  Transformation  expresses  all  of  the  voltages  and  currents  in  the  reference  frame  of 
the  roin!  The  stationary  reference  frame  is  referred  to  as  the  abe  frame  while  the  traits- 
l. 'lined  reference  liame  is  called  the  dtjo  frame  Under  normal  operation,  the  dqo  variables 
aie  not  a  tunction  ol  the  rotoi  angle. 
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V* 

IV 


'  m. 

|d.i 

V 

'(II 

Y  i: 
*01 
>11 
9 

<‘V 

(0,„ 

Tc 

MV 


e., 

W„„ 

<A„., 

MV 

MV 

lV, 

,  . 

L\l 


D 

IV 


Vy 


cd' 


V, 

rM- 


Base  frequency  (rad/sec) 

Base  Phase  Voltage  (0  to  peak) 

Base  Power  (watts) 

Input  Variables 

Phase  A  voltage 
Phase  B  voltage 
Phase  C  voltage 
Neutral  voltage 
Phase  A  current 
Phase  B  current 
Phase  C  current 

Terminal  0  Field  winding  voltage 
Terminal  1  Field  winding  voltage 
Terminal  0  Field  winding  current 
Terminal  1  Field  winding  current 
Electrical  rotor  angle  (radians) 

Mechanical  frequency  (rad/sec) 
Mechanical  acceleration  (rad/sec"') 

Torque  (turbine  +]  (Nm) 

Internal  Variable  :  q  axis  flux 
Internal  Variable  :  d  axis  flux 

State  Variables 

Electrical  Angle  state  (rad) 

Mechanical  frequency  state  (rad/sec) 
Mechanical  acceleration  state  (rad/sec*) 

D  axis  flux  [PUJ 
Q  axis  flux  [PUJ 

Voltage  behind  transient  reactance  (PUj 
Voltage  behind  Q  axis  subtransient  reactance  [PV| 
Voltage  behind  D  axis  subtransient  reactance  (PUj 
Derivative  of  D  axis  flux 
Derivative  of  Q  axis  flux 
Derivative  of  voltage  behind  transient  reactance 
Derivative  of  voltage  behind  Q  subtransient  reactance 
Derivative  of  voltage  behind  D  subtransient  reactance 

Implicit  Variables 

Sum  of  input  phase  currents 
Sum  of  field  currents 
neutral  voltage 
D  axis  flux  eqauiion 
Q  axis  flux  equation 
Q  axis  subtransient  equation 
D  axis  subtransient  equation 
transient  equation 
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umj 

l„ 


'I'orq  bill  mice 
integrating  frequency 
integrating  frequency  acceleration 

Equations 

Calculate  Base  Quantities 


/ 


2  P 


In 


■‘»  "  7  \  ’ 


I ih  ~  A.i.'i-Vy 

P,. 


V‘  - 


’  /» 


6?i 

Prpb> 


CO, 


m 
1 2] 
1 31 

14) 


7’  = 


Calculate  Phase  voltages 


v-  =  »*u,  ~  Vo, 


V/j  ~  '  os  '’()n 


'  (  ~  '(><  “ 


Perform  Park's  Transfonnation 

A  ('  2n\ 


cos(0)  cos 


v  3  y 


C°f  +  3  I 


-  sin 

,e  +  2't) 

l  3  J 

l  3  J 

T 


'dll 


V<\  =  v  r 

l'7, 


*0.*. 


1.  u  J 


Ml.  J 


15] 

16) 
17) 


IS) 


[9] 
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Calculate  other  variables 


_  hj  ~ 

ill) 

'  w  ”  ''(»! 

r 

'  m 

|12| 

ft 

T  ~  -  T 

•J»l*  ^  Ut  / 

•V 

[n.l 

X*J-Xj~Xal 

1141 

•V,~ 

v.,  -  A- , 

!  15) 

r,-  * 

^  Jr 

116) 

•C/ 

'W  Aj-Aj" 

i!7| 

..  v-'  ”jrj" 

a  ”  V  -A  '' 

Aj  At/ 

118) 

Calculate  states 

'Cj'  m' 

[19) 

//  ft  •  1 1 < 

<’./  =  Vv  /v  -  M'y 

[20] 

Cv  ~-xu 

121] 

■A ,„/(  '/  -  xu)if<t  +  A'wC ? 

(22) 

Xf 

1! 

•€ 

|23| 

'  •/  «/ 

|24| 

Calculate  Derivatives 
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.  v  -C'/ 

7>v  ■  ,,  =  ...  +w*A»<.Vv  +  w*,'rf 

y.../ 

1:51 

</Vv  -Vv  -<•/' 

“<  Cl., 

Col 

)  */  .  /  /  //  \ 

,7(-/  1  v./  ,1  /  ■'./  "  v./  1 
i  ■  -  ,;  “  J  - v  +  C.  +  V,/ 1  C7I 

'•  ■  •'./,■  •  C/  -9/ 

</<■  ■'  |  f  i  v  -  v  "  > 

/)  .=  =  _  i  c  *  .  V  vi/ 

dt  .v,"  w  */' 

|28] 

7\  ■  =  Jj/  =  ^  ,  (-«<•/  +  («  ~  1  7"  +  <*) 

|29| 

Perform  Modified  Trapezoidal  Integration 

To  determine  l,0,  Iw,  I*,...  IeJ..,  and  !«,. 

tf.V 

u'  /  ~  "V 

130] 

C  =  -v  -  xM  -  {dt )  (0.6  v  +0.4  y(,u) 

1311 

Calculate  Current  Implicit  Variables 

I  uunt  C 

1321 

<o/  +  9/ 

i  .'v«nt  i 

133] 

Calculate  Mechanical  Variables 

C,..  =  HCC“V,C 

134] 

2^p„com 

u,<  . . wh7 

135] 

7; 

/  =T  -T  ---- 

urr  </>u  'T' 

7  />r 

136] 
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1371 


a,  =  e 


Wmj  =  0)m 

[38] 

<*>«,  = 

[39] 

(dt\ 

A.  =  9.  “  9,  M  ~  ^  2  ) 

[401 

oui  “  (dt)( 0.6wmj  +  0.4comj(lU) 

[41| 

Comments 

The  implementation  of  the  synchronous  machine  model  is  contained  in  the  file 
f_syneh_inach.c  which  is  listed  in  APPENDIX  C. 

The  following  parameters  describe  a  2000  KW  generator  typical  of  those  found  on  U.S. 
Navy  destroyers:  [  1 OJ 


Xd 

1.38 

PU 

\ 

xd 

0.26 

PU 

0.25 

PU 

x/’ 

0.171 

PU 

xq” 

0.171 

PU 

X. 

0.1 

PU 

T  ’ 

*  do 

2.9 

sec 

T  ” 

1  do 

0.0 

sec 

T  ” 

uo 

0.0 

sec 

f 

1  ad 

0.09954 

sec 

ii.d 

38.5 

amps 

H 

0.651 

sec 

Pr 

2 

376.99 

rad/sec 

vdb 

367.4235 

volts 

Phs 

2500000 

watts 

The  subtransient  time  constants  are  set  to  zero  becuase  the  author  was  unable  to  obtain 
their  true  values  from  unclassified  sources.  The  time  constants  are  typically  fast  and 
approximating  them  as  zero  does  not  introduce  serious  errors. 
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4.4  Speed  Governor 


The  speed  governor  model  included  in  SEPSIP  is  based  on  the  mechanical  speed 
governor  on  the  2000  K  W  synchronous  steam  turbine  generator  found  on  tin  older  U.S.  Navy 
submarine.  This  model  is  based  on  one  developed  by  the  author  as  part  of  a  term  project  for 
an  electrical  engineering  machinery  course  [  10]  and  is  a  greatly  reduced  version  of  the  model 
developed  by  Dalton  (6). 

Figure  4.4-1  Speed  Governor 


Droop 

s  Equation 


T 

ra_ordtr 


T. 

— © 


Transfer 

Function 


Parameters 


Zero  Order  Frequency  (rad/sec) 

<0* 

Droop  Factor  Coefficient  (rad/sec- inch) 

^t/7  epu 

PU  Torque  Coefficient  (rad/sec) 

TIiS 

Base  Torque  (Nm) 

\ 

Time  Constant  (sec) 

Input  Variables 

t0M 

Mechanical  frequency  (rad/sec) 

Tt 

Torque  (Nm) 

s 

Droop  Factor  (inches) 

State  Variables 

T 

1  m  order 

Ordered  Torque  (PU) 

T 

*  mpu 

Actual  Torque  (PU) 

Implicit  Variables 

I 

Implicit  Variable 
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Equations 


T. 


1 


m  order 


01 


(®*  -  C0n/,  -  CO *J) 


wJT  epu 


T  =  T  +  B  co 

mm  m  “ 

T 

*  mm 


T  - 

nxpu 

I 


as 


m 

[2] 

13] 


dTm,m 

dt 


order  ^ ' mpu  ) 


[4] 


[5] 


Comments 

Equation  [  1  ]  provides  the  steady  state  value  for  the  torque  corresponding  to  the  present 
rotor  speed.  Equations  [2]  and  [3]  calculate  the  actual  torque  being  delivered  in  the  present 
time  increment.  Equation  [4]  describes  the  dynamics  of  the  speed  governor  as  a  simple  first 
order  system.  The  differential  equation  is  solved  using  trapezoidal  integration.  While  this 
is  a  simple  model,  it  does  provide  results  consistent  with  the  data  provided  in  ref  [6J. 

The  Droop  Factor  s  is  in  reality  the  Primary  Amplifier  Fulcrum  Displacement.  On  older 
submarines,  a  stepper  motor  attached  to  a  set  screw  is  used  to  adjust  this  displacement  until 
the  desired  frequency  is  obtained  for  a  desired  load.  A  normal  range  for  s  falls  between  0 
and  .5  inches.  The  parameter  values  are: 

o>„0  =  374.72 
coif  =  63.38 
=-20-15 
t,  =  0.328 


The  above  values  are  for  a  single  pole  pair  generator,  for  a  two  pole  pair  machine,  the 
first  three  parameters  should  be  halved. 
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4.5  Voltage  Regulator  Model 

The  voltage  regulator  model  included  in  SEPSIP  is  a  simple  first  order  transfer  function 
between  the  terminal  voltage  error  and  field  voltage  of  a  synchronous  machine.  The  terminal 
voltage  is  measured  by  subtracting  the  mean  value  of  all  three  phases  from  the  voltages  of 
phases  A  and  B.  These  values  are  fined  to  two  cosine  voltages  that  are  phase  shifted  by  120°. 
The  derived  terminal  voltage  is  divided  by  the  desired  terminal  voltage  and  subtracted  from 
1 .  This  error  voltage  is  subjected  to  a  first  order  transfer  function  that  produces  a  signal 
voltage  that  is  added  to  1  and  multiplied  by  the  nominal  field  winding  voltage. 

If  the  field  voltage  is  driven  above  or  below  specified  clipping  levels,  the  regulator 
maintains  the  field  at  the  clipping  voltage.  Typically  the  lower  limit  for  the  field  voltage  is 
about  0  volts  while  the  maximum  is  around  1 .5  to  2  times  the  field  voltage  required  to  maintain 
the  terminal  voltage  under  full  load. 

This  model  does  not  represent  any  specific  voltage  regulator.  However,  since  the 
response  of  many  voltage  regulators  is  dominated  by  one  eigenvalue,  approximating  the 
dynamics  by  a  first  order  lag  is  not  a  bad  assumption.  The  clipping  action  of  the  regulator 
ensures  that  the  field  voltage  does  not  exceed  reasonable  bounds. 

Figure  4.5-1  Voltage  Regulator 
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Parameters 


‘  tilb.s 


K 

T 

1  Vf 

V 

v  (max 

v 

I  min 


\' 


Oa 


V 

V 


Ob 

Ot 


V0I 


>Of 


V, 


v, 

Y 


“8 

0 

‘'clip 


I. 

J;, 

SSUl 

In 


Nominal  Field  winding  Voltage 
Per  Unit  Error  Gain 

Voltage  Regulator  Time  Constant  (sec) 
Maximum  limit  for  field  voltage 
Minimum  limit  for  field  voltage  (c  ning) 

Input  Variables 

Phase  A  voltage 
Phase  B  voltage 
Phase  C  voltage 

Field  Winding  Terminal  0  voltage 
Field  Winding  Terminal  1  voltage 
Field  Winding  Terminal  0  current 
Field  Winding  Terminal  1  current 
Desired  Voitage  (neutral  to  line  peak) 
Reference  Frequency  (rad/sec) 
Measured  Voltage  (internal  variable) 
Measured  Phase  (internal  variable) 

State  Variables 

Per  unit  error  in  voltage 
Per  unit  correction  to  field  voltage 
Phase  (radians) 

Clipping  State 

Implicit  Variables 

voltmeter  Phase  A  equation 
voltmeter  Phase  B  equation 
Sum  of  Currents 
Transfer  Function  Equation 

Equations 

Calculate  the  terminal  voltage 


=  3  +  V0i  +  V0c) 

[1] 

V.  ~  V0 „  -  V„ 

[2] 

Vb  ~  V0 b  ~  Vn 

[3] 

v,  =  v(lf  -  V„ 

[4] 

Y  =  Y ou  +  ujdt) 


[4a] 
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-  V,  cos(0  +  Y)) 


V 


bs 


1  {vh~v,  cos[e  +  Y~7 


Calculate  the  input  and  output  to  the  transfer  function 


v.„  =  1  - ; 


V' 


bs 


"*  Vfdbs 


If  cc|,p  oM  =  0,  the  regulator  is  not  clipping: 
civ , 


T  — —  +  v  =  Kv 
vr  dt  *  trr 

TJv„z  ~  v^m)  +  dt(.6(vjig  ~Kverr)  +  A(vsig  olJ  -Kvtrr  M)) 


*>  =  V"V0/ 


otherwise  the  regulator  is  clipping 


.  ,  ,  Vfaun-(Vlf-V0f) 

if  M  =  -1  then  /„  =  - - - 

v  bs 


if  ccUpM  =  1  then  /„  =  - 


VfHB-iVif-Vof) 


V, 


bs 


'  t'f 


T„Vtlx  ou  ~  dt[.4{V  M-KVm  old)-.6  KVtn) 


Tvr  +  ,6  dt 

Vf=(VsiX  +  l)Vfdbs 

The  sum  of  the  field  currents  should  be  zero 


hsum  —  4 /T  i\J 


See.  if  should  clip  during  the  next  time  increment 


I5J 

[61 

[7J 

[8] 

[9] 

[10] 

[11] 

[12] 

[13] 

[14] 
[15J 

[16] 


-  95  - 


if '/  £  then  cdip  -  1 

[17] 

else  if  vf  <  then  ct,,p=- 1 

[18] 

else  ccl,r  =  0 

[19] 

Comments 

The  implementation  of  the  voltage  regulator  model  is  contained  in  the  file  f_volt_reg.c 
listed  in  APPENDIX  C. 
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4.6  Induction  Motor  Model 

The  Induction  Motor  Device  included  in  SEPSIP  is  based  on  a  model  of  a  "squirrel 
cage"  motor  presented  by  Krause  [17].  This  model  assumes  the  stator  consists  of  three 
windings  and  that  the  rotor  can  be  represented  by  three  additional  windings. 

Figure  4.6-1  Induction  Motor 


Mutual  Inductances  Not  Shown 


Parameters 


K 

Stator  Resistance  (ohms) 

xu 

Stator  Inductance  (ohms) 

xlr' 

Rotor  Inductance  (reflected  to  Stator)  (ohms) 

K 

Rotor  Resistance  (reflected  to  Stator)  (ohms) 

j 

Moment  of  Inertia  (Kg-m2) 

<0* 

Base  Frequency  (rad/sec) 

Pr 

Pole  Pairs 

B 

Windage  Torque  Factor  CNm-sec) 

-97  - 


Input  Variables 


V..a 

Phase  A  voltage 

V(* 

Phase  B  voltage 

V(te 

Phase  C  voltage 

Phase  A  current 

K*> 

Phase  B  current 

Phase  C  current 

e 

Electrical  Rotor  Angle  (radians) 

CO 

Mechanical  Frequency  (rad/sec) 

do 

Mechanical  Acceleration  (rad/sec‘) 

VOn 

Neutral  voltage 

Phase  A  rotor  current 

Kb 

Phase  B  rotor  current 

9c 

Phase  C  rotor  current 

State  Variables 

Ka 

Phase  A  stator  flux 

\b 

Phase  B  stator  flux 

K 

Phase  C  stator  flux 

Phase  A  stator  flux  derivative 

Dsb 

Phase  B  stator  flux  derivative 

Dtc 

Phase  C  stator  flux  derivative 

Phase  A  rotor  flux 

Phase  B  rotor  flux 

K' 

Phase  C  rotor  flux 

Dra 

Phase  A  rotor  flux  derivative 

D* 

Phase  B  rotor  flux  derivative 

Drc 

Phase  C  rotor  flux  derivative 

e. 

Electrical  Rotor  Angle  (rad) 

Mechanical  Speed  (rad/sec) 

w. 

Mechanical  Acceleration  (rad/sec) 

Implicit  Variables 

I,. 

Phase  A  stator  flux  equation 

I,h 

Phase  B  stator  flux  equation 

Iu 

Phase  C  stator  flux  equation 

I.„ 

Phase  A  rotor  flux  equation 

^1* 

Phase  B  rotor  flux  equation 

I.rc 

Phase  C  rotor  flux  equation 

Is 

Sum  of  Stator  Currents 

w 

Frequency  Integration 

W„ 

Acceleration  Integration 

I, 

Torque  equation 
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Equations 

Calculate  Inductances 


L 


Is  ~ 


<»bs 


L 


lr 


Y  ' 

Alr 

U>bs 


Mbs 


L 


ms 


[1] 

[2] 

[3] 

[4] 


JL,i  —  Lti  *4“ L> 

11  is  mj 


L^  =  L, '  +  L 

44  lr  '  ms 


^>-~y 


^4i=^cos(0) 


f 


^51  =  ^OS| 


2n 


0+3 
V  3 

Z' 


*■6,  =  cosl 


e-f 

3  J 


Calculate  Fluxes 

^sa  =  ^  1 1  4 a  All 4 b  "*"^21 4c  j  4o  ^5 1  Kb  ^61 4c 

=  ^2l4 o  ’*'^'ll4fc  ^2 1  4r  ^6l4o  +  ^4 1  Kb  +  ^5 1 4c 

^jr  =  ^2lJ0o  ^'^21,0fc  +  1 1  4c  ■+‘^5l4o  "*■  ^6\Kb  ^4l4t 


[5] 

[6] 

[71 

[8] 

[9] 

[10] 


[11] 

[12] 

[13] 


4,,J  ~  + +L.Jra  +  L2]irh4~  L2\ir'  [14] 

'*VA  =  ^5 1 4kc  +  ^-4l4/>  +  ^-6l4c  +  +L2iKa  +  ■*"  ^2 1 4c  1  1  3] 

?Vc  =  L(l]l{ia  +L5i/(^  +L4,l|)r  ++^-2)/,a  +^21  Kb  3"  -^44  4f  [1^] 
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Calculate  Flux  Derivatives 


D,a  =  VOa-Van-RJoa 

[17] 

Ds b  ~  Vofc  — 

[18] 

£>:c  =  '’ac-VOn-RJoc 

[19] 

Dra  =  ~Rr'L 

[20] 

3- 

II 

[21] 

Ac  =  "'Ur 

[22] 

Perform  Trapezoidal  Integration 


^ la  ^ sa  ^sa_old  |  ^  ia  ^ta  oul ) 


hb  “  \b  \b_old  ' 


lie  ~  K  ’^•sc_old 


(&) 

UJ 


(Djb  Dib_cui) 

{D.c  +  &sc_old) 


/  -  1  1  ' _ 

Jhto  —  'Va  'Vfl  oW 


$V+£>  u) 


A  -  >  '  _  1  '  _ 

1 Itb  ~  r'rb  Krb_old 


f  \Drb+DrhoU) 


dt 


hr,~\c  ^Vr  old  \(Drc+ Drc.old) 


K  ~  Oto  f  4fc  f  ^Oc 


Calculate  Torque  and  Mechanical  variables 


T,  =  -prLms{ 


‘(to 


■  --h  ^ 
'ro  2  2 


+  /, 


Oh 


>  7 


.  ^rc  Ka  i  ,  . 

Kb~~^-~^  +i| 


2  2; 


Or 


»r«  »rh 


Yt 


\c  2  2;y 


sin(9)  + 


-  /„ )  +  /«//„  -  U  +  (/,„  -  /,.„)) cos(9)} 


[23] 

[24] 

[25] 

[26] 

[27] 

[28] 
[29] 


[30] 
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B  co 


h  —  Tr  J  to  Tmtrh 

e,  =  e 

to.  --  (0 


W  =6-0 


s^oid 


co,  =  to 

Jdt} 

U  y 


WD  =£0,-03,  M- 


dt\-  ■  , 

T  (to,  4-  (0,  oU) 


Comments 


[31] 

[32] 

[33] 

[34] 

[35] 

[36] 


The  implementation  of  the  induction  motor  model  is  contained  in  the  file  f_ind  jmotor  .c 
listed  in  APPENDIX  C. 
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4.7  Three  Phase  Switch  Model 


The  Three  Phase  Switch  model  allows  the  user  to  control  switches  for  all  three  phases 
w  ith  one  external  input  variable.  When  the  external  input  variable  commands  the  switches 
to  close,  all  three  phase  switches  close  at  once.  When  commanded  to  open  however,  the 
individual  phase  switches  remain  closed  until  a  zero  crossing  occurs. 

Since  a  switch  changes  the  configuration  of  the  network,  one  must  ensure  that  both 
configurations  are  defined  properly  and  have  a  voltage  reference.  In  particular,  switches 
should  not  be  connected  in  series  without  providing  some  means  (such  as  a  resistor)  to  define 
the  voltage  of  the  node  connecting  the  two  switches. 

Figure  4.7-1  Three  Phase  Switch 


Input  Variables 


v<* 

Terminal  0  Phase  A  Voltage 

V<*> 

Terminal  0  Phase  B  Voltage 

V(K 

Terminal  0  Phase  C  Voltage 

Vla 

Terminal  1  Phase  A  Voltage 

Vlb 

Terminal  1  Phase  B  Voltage 

Vk 

Terminal  1  Phase  C  Voltage 

i,,., 

Terminal  0  Phase  A  Current 

A*  ij) 

Terminal  0  Phase  B  Current 

V 

Terminal  0  Phase  C  Current 

1  la 

Terminal  1  Phase  A  Current 

Terminal  1  Phase  B  Current 

ijr 

Terminal  1  Phase  C  Current 
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State  Variables 


sa 

Sb 

Sc 

4 

it. 

4 


sa 

I,b 

4c 

4a 

4b 

4c 


s 


Phase  A  state 
Phase  B  state 
Phase  C  state 
Phase  A  current 
Phase  B  current 
Phase  C  current 

Implicit 


Phase  A  switch 
Phase  B  switch 
Phase  C  switch 
Phase  A  current  sum 
Phase  B  current  sum 
Phase  C  current  sum 

External  Input 

Switch  Condition 
0  =  on 
1  =  off 


Equations 


V,  =  vIf  -  V0r 
4  =  ^  (ha  —  U 
4  =  2  (hi. ~  4i> ) 
4=^(4f-4r) 

If  the  Switch  is  commanded  closed: 
s„  =  sb  =  =  1 

If  the  Switch  is  commanded  opened: 


[1] 

[2] 

[3] 

[4] 

[5] 
16] 


[7] 
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[8] 

[9] 


Sa  ~  Sa_old 
Sb  ~  Sb_old 
Sc  =  Sc_old 

Calculate  the  implicit  variables: 
if  sa  =  1  then  Isa  =  va  else  Isa  =  ia 
if  sb  ~  1  then  Ilb  =  vb  else  Isb  =  Ib 
if  sc  =  1  then  Isc  -  vr  else  Isc  =  Ic 


4  =  4  +  4 


4  ~  l0b  +  l\b 


4  =  4  +  4 


[10] 

[11] 

[12] 

[13] 

[14] 

[15] 

[16] 


If  the  Switch  is  commanded  opened,  Check  for  Zero  Crossing: 


If  ija_o id  -  0  then  sa  =  0  else  Sa  =  1 

[17] 

If  ibhjM  -  0  then  sb  =  0  else  sb  =  1 

[18] 

if  icic  oU  <  0  then  sc  -  0  else  sc  =  1 

[19] 

Comments 

The  implementation  of  the  three  phase  switch  is  contained  in  the  file  f_switch_3p,c 
contained  in  APPENDIX  C. 

Note  that  the  switch  does  not  open  until  a  zero  crossing  has  occurred.  This  may  lead 
to  problems  when  the  derivative  of  the  current  is  very  large  and  the  current  overshoots  zero 
by  a  large  amount. 
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4.8  Circuit  Breaker  Model 


The  circuit  breaker  model  ;ncluded  in  SEPSIP  simulates  a  three  phase  circuit  breaker 
that  is  tripped  either  by  an  overcurrent  or  ’manually’  by  the  operator.  The  square  of  the 
magnitude  of  the  current  is  determined  through  a  forgetting  factor  f  which  is  multiplied  by 
the  square  of  the  old  value  of  the  current  magnitude  and  added  to  (1  -  f)  times  the  square  of 
the  present  current  value.  The  magnitude  of  the  current  is  compared  to  a  specified  limit,  if 
the  limit  has  been  exceeded  for  a  certain  amount  of  time,  the  breaker  is  commanded  to  open. 
The  breaker  can  also  be  commanded  to  open  by  an  external  input.  Once  commanded  to  open, 
the  switch  for  each  phase  remains  closed  until  a  zero  crossing  occurs. 

Figure  4.8-1  Circuit  Breaker 
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Each  phase  of  the  circuit  breaker  is  modelled  as  a  state  machine  having  seven  states 
defined  by: 


Figure  4.8-2  Circuit  Breaker  States 

State 

Switch 

External  Cmd 

Current  Trip 

0 

open 

open 

open 

1 

closed 

open 

open 

2 

open 

open 

closed 

3 

closed 

open 

closed 

4 

open 

closed 

open 

5 

closed 

closed 

open 

7 

closed 

closed 

closed 
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t 

4rip 

4np 


V 

V 

V 


Oa 

Ob 

Oc 


V 


la 


Vta 

4b 
4c 
4a 
4b 
4  c 


s 


a 


Sb 


Sc 

la 

4 

.4 

^aave 

^tuve 

^cave 

ti, 

tib 

t,c 


Switch 


AiC 

4a 

4b 

4c 


Parameters 

RMS  Forgetting  Factor 
Current  Trip  value  (amps  rms) 

Current  Trip  Minimum  Time  (sec) 

Input  Variables 

Terminal  0  Phase  A  Voltage 
Terminal  0  Phase  B  Voltage 
Terminal  0  Phase  C  Voltage 
Terminal  1  Phase  A  Voltage 
Terminal  1  Phase  B  Voltage 
Terminal  1  Phase  C  Voltage 
Terminal  0  Phase  A  Current 
Terminal  0  Phase  B  Current 
Terminal  0  Phase  C  Current 
Terminal  1  Phase  A  Current 
Terminal  1  Phase  B  Current 
Terminal  1  Phase  C  Current 

States 

Phase  A  switch  state 
Phase  B  switch  state 
Phase  C  switch  state 
Phase  A  current 
Phase  B  current 
Phase  C  current 
Phase  A  rms  current 
Phase  B  rms  cun-ent 
Phase  C  rms  current 
Phase  A  overcurrent  time 
Phase  B  overcurrent  time 
Phase  C  overcurrent  time 

External  Input  Variables 

External  Switch 

Implicit  Variables 

Phase  A  switch  equation 
Phase  B  switch  equation 
Phase  C  switch  equation 
Phase  A  current  sum 
Phase  B  current  sum 
Phase  C  current  sum 

Equations 

V.  =  V|B  -  V*  [1] 

=  vib  -  v0fc  [2] 

[3] 
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[4] 


la~  2^,fl  l0a  ^ 
*b  ~  2  ^'lfr  —  l0b ) 

K  =\(hc~iOc) 


Perform  the  following  State  Transformation: 


Figure  4.8-3  Breaker  Transform  Table  1 

Old  State 

Switch  on 

Switch  off 

0 

7 

0 

1 

7 

1 

2 

7 

2 

3 

7 

3 

4 

4 

0 

5 

5 

1 

7 

7 

3 

If  tib.oid*  or  tk  old  is  greater  than  t,rlp 


use  the  following  transition  table 


Figure  4.84  Breaker  Transform  Table  2 

Old  State 

New  State 

0 

0 

1 

1 

2 

0 

3 

1 

4 

4 

5 

5 

7 

5 

The  Implicit  variables  are  defined  by 


if  sa  is  odd  then  /„  =  vfl  else  Isa  =  ia 

if  sb  is  odd  then  Isb  =  vb  else  isb  =  ib 

if  is  odd  then  Isc  =  vr  else  Isc  =  ic 


[5] 

[6] 


[7] 

[8] 
[9] 
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la  -  L  +  la  riOJ 

lb  =  L  ■*"  l\h  1 1  1] 

lc~l<~^lc  [12] 


Look  For  Zero  Crossing 

It'  ihc  product  of  a  phase  current's  present  and  old  values 
is  less  than  or  equal  to  zero,  perform  this  transformation: 


Figure  4.8-5  Breaker  Transform  Table  3 

Old  State 

New  State 

0 

0 

1 

0 

2 

2 

3 

2 

4 

4 

5 

4 

7 

7 

Calculate  RMS  Currents 


Calculate  RMS  Currents 

Lve  =  VO  -f)£+fiL*e_oU  [  1 3] 

=  V(1  -M+fiL«_ou  [14] 

Lex  =  V(  1  -/)i'c  +f>Lr~d  [  1  5] 

Update  Overcurrent  Time  counters 
if  La><  *  Lrir  then  La  =  Lom  +  dt  else  t,a  =  0  [16] 

if  Lx  ^  i,np  then  flb  =  tibM  +  dt  else  tib  =  0  [17] 

if  Lax  ^  LriP  ^en  tic  =  tlc  M  +  dt  else  tic  =  0  [18] 

Comments 


The  implementation  of  the  three  phase  circuit  breaker  model  is  contained  in  the  file 
f__breaker_3p.c  listed  in  APPENDIX  C. 
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CHAPTER  5 


SIMULATION  RESULTS 

A  description  of  SEPSIP  would  be  incomplete  without  several  examples  of  simulations 
conducted  with  the  program.  This  chapter  contains  the  input  files  and  results  of  seven  sim¬ 
ulations  that  demonstrate  the  features  and  capabilities  of  SEPSIP.  The  first  two  simulations 
show  the  stan  up  transients  for  two  different  induction  motors.  Because  the  simulations  are 
very  similar,  only  slight  modifications  to  the  input  files  of  the  first  simulator  were  required 
to  generate  the  second  simulation.  The  remaining  simulations  involve  the  response  of  one  or 
two  synchronous  generators  to  changing  loads.  The  third  simulation  loads  a  single  synchronous 
generator  with  a  .4  Per  Unit  load  for  a  4  second  period  and  then  removes  the  load.  The  response 
of  the  voltage  regulator  and  speed  governor  to  the  application  and  removal  of  the  load  are 
clearly  show'n.  The  next  two  simulations  use  identical  network  topologies  to  study  a  generator’s 
response  to  two  and  three  phase  shorts.  The  input  files  for  these  simulations  were  modified 
from  the  third  simulation  in  a  very  short  time.  The  final  two  simulations  demonstrate  the 
ability  of  SEPSIP  to  simulate  the  dynamics  of  multiple  generator  systems. 
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5.1  50  HP  Induction  Motor  Start  Up 


This  simulation  shows  the  startup  transients  for  a  50  HP  Induction  motor.  The  network 
consists  of  a  simple  three  phase  generator  directly  attached  to  the  induction  motor.  Each 
phase  of  the  generator  consists  of  a  sinusoidal  source  in  series  with  a  parallel  combination 
of  a  resistor  and  an  inductor.  Figure  5.1-1  shows  the  structure  of  the  network. 

Figure  5.1-1  50  HP  Induction  Motor 
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Mech:theta 
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The  parameters  for  the  induction  motor  are  from  Krause  [17].  The  Element  description 
include  file  for  this  simulation  is  shown  in  figure  5.1-2 

Figure  5.1-2  t50.elm  :  Element  Description  File 


!  t5C . elm 

!  Norbert  H.  Doerry 

I 

!  This  file  defines  the  elements  for  a  simple  3  phase  generator  attached 

!  tc  an  induction  motor. 

I 

gen  synch  3p  ger. 
phase_a  C  ,  0 


end 


The  following  are  the  characteristics  of  a  50  HP  motor 
described  on  page  190  cf  Krause's  ANALYSIS  OF  ELECTRIC  MACHINERY 


d  motor  motor 

Rs 

.0607 

XI  s 

.  ?  cc 

:-2<  15 

.06 

X 1 r  prime 

“1  r  *> 

F  r  c  rise 

.  2.  A.  £ 

■»  1 

.  eei 

6fi15 
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Note  that  the  series  induction  for  the  generator  is  very  small.  This  was  done  to  simulate 
a  voltage  bus  that  was  almost  infinite  in  nature.  (The  voltage  drop  due  to  the  synchronous 
reactance  is  negligible). 

The  effect  of  setting  B  to  zero  for  the  induction  motor  is  to  ignore  the  windage  losses. 
Since  Krause  also  ignored  windage  losses  in  his  analysis,  the  results  from  this  simulation  can 
be  directly  compared. 

'  Figure  5.1-3  t50.net :  Network  Description  File 


!  t50.net 

!  Norbert 

| 

NETWORK 

i 

NODE  grid 
rv : ig  = 
rv : vg  = 
end 

NODE  C 
v3 :  v 
i3  :  i 
end 

NODE  Mech 
v:theta 
v :  wm 
v : wm_dt 
end 

NODE  ref 
v:  ira 
v:  irb 
v :  ire 
v:  vO 
rv:Vref 
rv : f req 
end 


H.  Doerry 


0  =  gen : iOn 
0  =  gen:v0r. 


gen:v0a  =  motor :v0a 
aen:i0a  =  motor :i0a 


=  motor: theta 
=  motor:™ 

=  motor : wm  dt 


=  motor: ira 
=  motor : irb 
=  motor : ire 
=  motor :v0n 
=  gen:Vmag 
-  60.0  =  gen : f req 


Figure  5.1-4  tSO.init :  Initialization  File 


!  t50 . init 

!  Norbert  H.  Doerry 

i 

INITIALIZE 

END 

NODE  VOLTAGE  INITIALIZATION 
C : v  375.6 

C : v_b  -167.8 

C : v_c  -167.6 

END 

EXTERNAL  INPUTS  INITIALIZATION 
motor : Tmech  0 . 0 
END 
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Figure  5.1-5  t50.sim  :  Simulation  File 


!  t.50.sim 

!  Norbert  H.  Doerry 

i 

SIMULATION 


DISPLAY 


motor : RPM 
motor : HP 
motor : 7e 
gen  : I  a 
can  : lb 

gen  :  I c 
gen  :Va 
ref  : ira 
ref  :irb 
ref  :irc 
END 

TIME  STEP 

0.00025 

TMIN 

0 

TMAX 

1 . 0 

PRINT  STEP 

0.0010 

DELTA 

0.01 

DELTA  MIN 

0.01 

CONVERGE 

le-10 

MAX  ITERATION  50 
REFERENCE 

I  :  C:  i 

V: ref : Vre 
END 

f  375 

EXTERNAL  INPUTS 
END 


The  above  files  are  synthesized  into  a  single  input  file  with  the  following  format: 

Figure  5.1-6  t50.all :  Input  File 


!  t-  5  0  .  a  1 1 

!  Norbert  H.  Doerry 

i 

include  t50.elm 
include  t50.net 
include  t50.ini.t 
include  t50 . sim 

The  above  format  for  the  input  file  was  used  for  all  the  simulations  conducted  for  this 
thesis.  In  the  following  sections,  the  include  files  will  be  referred  to  as  separate  entities  even 
though  they  only  have  meaning  when  organized  in  the  manner  shown  in  figure  5.1-6.  SEPSIP 
does  not  require  the  organization  of  the  input  file  in  this  manner,  but  this  convention  greatly 
eases  the  task  of  creating  and  running  simulations. 

The  results  of  the  simulation  are  shown  in  figures  5.1-7  through  5.1-10.  Note  that  for 
this  motor,  the  machine  reaches  its  steady  state  speed  after  only  .6  seconds.  As  typically  seen 
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in  many  induction  machines  of  this  size,  the  transient  currents  during  the  startup  are  con¬ 
siderably  greater  than  the  final  no  load  current.  The  rotor  current  also  shows  the  expected 
characteristic  decreasing  frequency  as  the  rotor  approaches  synchronous  speed.  These  results 
are  all  identical  to  the  figures  shown  in  reference  [17]. 

Fig  5.1-7  RPM  vs  Time  Fig  5.1-8  Te  vs  RPM 


50  IP  Induction  Motor:  WM  v»  t 
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50  BP  Induction  Motor:  T«  v$  PPM 


* 


t  i*a  (**ei  PPM 

Fig  5.1-9  Stator  Current  vs  Time  Fig  5.1-10  Rotor  Current  vs  Time 
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5.2  500  HP  Induction  Motor  Start  Up 


This  simulation  shows  the  startup  transients  for  a  500  HP  Induction  motor.  The  network 
consists  of  a  simple  three  phase  generator  directly  attached  to  the  induction  motor  and  is 
identical  to  the  network  used  for  the  50  HP  Induction  motor  in  the  previous  section.  Figure 
5.2-1  shows  the  structure  of  the  network. 

Figure  5.2-1  500  HP  Induction  Motor 
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The  parameters  for  the  induction  motor  are  from  Krause  [17].  The  Element  description 
include  file  for  this  simulation  is  shown  in  figure  5.2-2 

Figure  5.2-2  t500.elm  :  Element  Description  File 


t500  .  e  lm 

Herbert  H.  Doerry 

This  file  defines  the  elements  for  a  simple  3  phase  generator  attached 
to  an  induction  motor. 


oen  synch  3p  gen 
phase  a  0.0 
1  (.010 1 
r.  1000 
end 

t 

!  The  following  are  the  characteristics  of  a  500  HP  motor 
!  described  cr.’page  190  of  Krause's  ANALYSIS  OF  ELECTRIC  MACHINERY 


motor 


2C2 

U  C  c 


54  .  c: 

1 . 24  c 
.  1E7 
11  .  Of 
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Note  that  the  series  induction  for  the  generator  is  very  small.  This  was  done  for  the 


same  reasons  discussed  in  the  50  HP  induction  motor  example. 

Setting  B  to  zero  results  once  again  with  the  induction  motor  dynamics  ignoring  the 
windage  losses.  Since  Krause  also  ignored  windage  losses  in  his  analysis,  the  results  from 
this  simulation  can  be  directly  compared. 

Figure  5.2-3  t500.net :  Network  Description  File 


!  tSOO.ne 

!  Norbert 

i 

NETWORK 

f 

NODE  and 
rv:iq  = 
rv:va  = 
end 

NODE  C 
v3  :  v 
i  3  :  i 
end 

NODE  Me ah 
v:  the-. a 
v :  wm 
v :  wm_dt 
end 

NODE  ref 
vs  ira 
vs  irb 
v :  ire 
v :  vO 
rvsVref 
rv :  f  req 
end 


H.  Doerry 


0  =  ae  n : i 0  n 
0  =  gensvOi. 


gensvOa  =  motor svOa 
aen:i0a  =  motors iOa 


••  motor :  theta 
=  motor : wm 
=  motor:™  dt 


=  motor: ira 
=  motor: irb 
=  motor: ire 
=  motor:v0n 
=  gen:Vmag 
=  60.0  =  gen : f  req 


Figure  5.2-4  t500.init :  Initialization  File 


t500  .  ir.it 
Norbert  H.  Doerry 


END 

NODE  VOLTAGE  INITIALIZATION 
C : v  1677.9 

D : v _ b  -93e.9S 

C:v_e  -936.95 

END- 

EXTERNAL  INPUTS  INITIALIZATION 
meter : Tmeeh  0.0 
END 
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Figure  5.2-5  tSOO.sim  :  Simulation  File 


:  -rC'-.-.sim 
:  Herbert  H.  Doerry 

t 

SIMULATION 


per: 

per. 

aer. 


P.PM 

KF 


i  r  a 
i  rfc 


ref  :irc 

END 

TIME  STEP 

0. 

00025 

'T'*/  -  »  1 

TMAX 

r. 

0 

PFINT  STEF 

r 

v.  • 

00 10 

DELTA 

e. 

01 

oelta_m:n 

c. 

01 

CONVERGE 

ie 

-10 

MAX  ITERATION 

50 

REFERENCE 

I  :  C  :  i 

V : ref : Vre 

C 

187‘ 

END 


EXTERNAL  INPUTS 
END 


The  results  of  the  simulation  are  shown  in  figures  5.2-6  through  5.2-9.  Note  that  for 
this  motor,  the  machine  reaches  its  steady  state  speed  after  about  1.4  seconds.  As  typically 
seen  in  many  induction  machines  of  this  size,  the  transient  currents  during  the  startup  are 
considerably  larger  than  the  final  no  load  current.  The  large  startup  currents  indicate  that  a 
motor  controller  should  be  used  during  start  up.  The  rotor  current  also  shows  the  expected 
characteristic  decreasing  frequency  as  the  rotor  approaches  synchronous  speed.  Another 
typical  characteristic  of  large  induction  motors  is  the  speed  overshoot  shown  in  figures  5.2-6 
and  5.2-7.  Note  that  the  50  HP  machine  did  not  have  an  overshoot.  These  results  are  all 
identical  to  the  figures  shown  in  reference  [17]. 
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Fig  5.2*6  RPM  vs  Time 


Fig  5.2*7  Te  vs  RPM 


900  IP  Induction  Motor:  To  vi  RPM 


HM 


Fig  5.2-9  Rotor  Current  vs  Time 


500  IP  Induction  Motor:  I rm  vi  t 


5.3  Synchronous  Generator:  Switched  Load 

This  simulation  demonstrates  the  transients  associated  with  loading  an  initially 
unloaded  synchronous  generator  to  forty  percent  of  its  rated  load.  The  synchronous  generator 
is  modelled  on  a  2000  KW  unit  found  on  recent  construction  guided  missile  destroyers  (DDG). 
Speed  regulation  is  performed  by  a  droop  governor  based  on  the  type  used  on  an  older 
submarine.'  The  voltage  regulator  is  modelled  as  a  first  order  lag  transfer  function  with 
output  clipping.  While  most  voltage  regulators  have  more  complicated  transfer  functions, 
this  model  provides  reasonable  results  under  normal  operating  conditions.  The  load  is  a  wye 
connected  impedance  with  a  .999  power  factor.  Figure  5.3-1  shows  the  structure  of  the 
network: 

Figure  5.3-1  Synchronous  Generator:  Switched  Load 


1  A  droop  governor  has  a  torque  speed  characteristic  that  has  a  negative  sloop.  This 
implies  that  as  the  load  on  the  generator  increases,  the  frequency  decreases.  Another  type 
of  speed  regulator,  the  Asynchronous  governor,  maintains  a  constant  speed  regardless  of 
the  load.  In  isolated  operation,  most  modem  generators  operate  in  the  Asynchronous 
mode.  When  two  or  more  generators  are  paralleled  however,  the  droop  mode  provides  a 
inherently  stable  method  for  sharing  the  load.  Paralleled  Asynchronous  generators  require 
special  circuitry  to  ensure  one  generator  does  not  take  all  of  the  load. 
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The  parameters  for  the  generator  were  obtained  from  reference  [101.  The  voltage 
regulator  dynamics  were  extracted  from  data  provided  by  references  [2]  and  [18].  Speed 
governor  dynamics  are  from  references  [6]  and  [10].  The  parameters  are  all  listed  in  figure 
5.3-2 


Figure  5.3-2  v.elm  :  Element  Description  File 


! v . elm 

! Herbert  K.  Doerry 


synch  ma 

ch  seen 

::d 

1.36 

-q 

0.26 

0.25 

xd_pp 

0. 171 

0.171 

:-:ai 

C  .  1 

Tdc_p 

2 . 9 

Td  c  pr 

0.0 

Tqc  pp 

C  .0 

Tad 

0.09954 

Ifni 

38.5 

H 

0.651 

F? 

2 

whs 

37  £ . 99 

Vdr 

St"7 .4235 

Pbs 

2 . 5e 6 

end 

!  This  is  an  approximation 
!  No  data  for  subtransient  T.C. 

!  Field  Current  for  no  load  rated  terminal  voltaqe 


!  450  volts  ms  line  to  line 
!  2000  KW  at  .8  Power  Factor 


rl_wye  load 
F.  0.2 
L  25e-6 
HI  1000 
end 


switch  2p 

sw 

end 

speed  reg 

oov 

wnlc 

16" 

w  d  s 

n  - 

wdTepii 

-1C 

TBS 

Tg 

c 

b 

c 

end 

i 

vc It  reg  v 

reg 

Vrdhs 

52 

K 

2  C 

Tv  r 

0  . 

Vf  min 

0 

Vfrr.a:*: 

12 

enc 

! ;  -  -  r  h  e  r  t  H 

v  3  :  v  =  s 

gen :  v< 

1 3  :  i  =  s 

aen: i  i 

end 

62 . 6 
:  t  7  r 


!  damping  is  ignored 


Field  Voltage  for  rated  noload  terminal  voltage 

Transfer  function  gain 

Principle  time  constant 

Minimum  field  voltage 

Maximum  field  voltage  (clipping) 


Figure  5.3-3  v.net :  Network  Description  File 
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s  w  :  v  1  a 
s  w :  r  1  a 


load : vOa 
load : iOa 


end 

NODE  Me oh 


v :  theta 

= 

sgen : theta 

rv : wbs 

= 

377  =  v  regrwbs 

v :  wrr. 

- 

sgenrwm  =  govrwm 

v :  wrr,  dt 

= 

sqentwm  dt 

rv  :  s 

= 

0.04  =  gov : s 

end 

NODE  ref 

V  !  ic 

ss 

sgenrTe  =  gov:Tm 

v:Psi_q 

= 

sgen :F si  q 

v:t si  d 

= 

sgen:Psi  d 

rv :  vO 
ri  sil 

0.0  =  sgen : vOn 
=  load:i0n 

rv : Ion 

= 

0.0=  vOn 

end 

NODE  field 

rv :  f  ctv 

= 

0.0  =  v  regrvOf  =  sgen 

v  :  fv 

= 

v  regivlf  =  sgen 

ri  :foi 

= 

v  reqriOf  =  sgen 

l  :  f  i 

= 

v  regrilf  =  sgen 

enc 

NODE  Vreq 

rv : vfcs 

= 

367.42  =  v  regrvbs 

v :  vt 

= 

v  regrvt 

v :  ph 

= 

v  reg.-phase 

end 

Figure  5.3-4  v.init :  Initialization  File 

!  v . init 

INorbert  H.  Doerry 


INITIALIZE 
v_reg : iOf 
v_reg : il f 
sgen : iOf 
sgen : i If 
sgen :psi_d 
sgen : s_wm 
sgen : eq_p 
sgen : eq_pp 
END  W  ' 

( 

NODE  VOLTAGE 
C:  v 
C :  v_b 
0 :  v_c 

Mech : theta 
Mech : wm_dt 
ref :Te 
ref : Ps i_q 
ref : ps  i_d 
field : fv 
Vr eg : vt 
Tree :ph 

end’ 


-38.499 

38.499 

-39.499 

38.499 

1 

188 . 5 

1 

1 


INITIAL I LATIN 


3  67.4 
-183.7 
-183.7 
0 
0 
0 
0 
1 

52.56 

367.4 

0 


Figure  5.3-5  v.sim  :  Simulation  File 


! Herbert  K.  Doerry 

! 

SIMULATION 

DISPLAY 

C :  v  k 
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C  :  v  c 
£3en : Tepu 
sgen  :  vd 
sgon : vq 
sgen  :  i  d 
sgen : iq 
sger.  :  if  d 
Vreg : vt 
field : fv 
ref : Te 
Mech : wm 
load : la 
end 


TIME  STEP 

0.00025 

TMIN_ 

0 

TMAX 

8 

PRINT  STEP 

0.002 

DELTA 

0.01 

DELTA  MIN 

0.01 

CONVERGE 

;  e  —  x  0 

MAX  ITEV'.AT 

ION  50 

REFERENCE 

END 

EXTERNAL  INPUTS 
sw  ; Switch  0  0 
sw: Switch  1  0.01 
sw : Switch  0  4.0 


END 

i 


The  results  of  the  simulation  are  shown  in  figures  5.3-6  through  5.3-1 1.  Figure  5.3-6 
shows  the  speed  regulation  of  the  governor.  Notice  the  droop  in  frequency  caused  by  the 
addition  of  the  load  (2.2%  in  this  case).  The  frequency  transient  dies  O’  within  4  seconds 
on  both  the  application  and  removal  of  the  load.  The  terminal  voltage  has  interesting  char¬ 
acteristics  on  both  the  addition  and  the  removal  of  the  load.  On  the  application  of  the  load, 
the  terminal  voltage  expeiiences  a  negative  voltage  spike  as  the  current  builds  up  in  the  load 
inductance.  On  removal  of  the  load,  the  network  is  in  asymmetrical  operation  as  each  phase 
switch  opens  on  the  zero  crossing  of  the  current.  Notice  that  the  relatively  high  gain  on  the 
voltage  regulator  results  in  a  small  steady  state  error  in  the  terminal  voltage  magnitude.  Figure 
5.3-8  shows  the  field  voltage  as  generated  by  the  voltage  regulator.  Even  with  the  large 
change  in  load  and  large  voltage  regulator  gain,  the  Field  voltage  magnitude  remains  within 
the  clipping  limits. 
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Figure  5.3-10  id  and  iq  vs  Time  Figure  5.3-11  vd  and  vq  vs  Time 


SYVCR  HACK  I  NT)  Id  and  lq  v*  Ti»a 


(fYNCR  MACIXOTC)  vd  and  vq  vs  Ti*a 


5.4  Synchronous  Generator:  Two  Phase  Fault 

An  electrical  system  casualty  that  can  easily  occur  on  shipboard  systems  is  a  two  phase 
fault  where  two  of  the  three  lines  of  the  distribution  system  are  shorted  together.  This  problem 
is  difficult  to  solve  analytically  due  to  the  asymmetrical  nature  of  the  resulting  network. 
Figure  5 .4- 1  shows  the  SEPSIP  network  congifuration  used  to  solve  this  problem  numerically. 
The  network  is  a  modification  of  the  network  used  in  section  5.3.  The  transmission  line 
element  was  added  to  prevent  potential  problems  with  the  voltage  regulator  model.  The 
voltage  regulator  model  calculates  the  terminal  voltage  of  the  synchronous  machine  assuming 
a  nonzero  balanced  voltage.  If  the  terminal  voltage  of  all  three  phases  goes  to  zero,  there  is 
the  possibity  of  the  voltage  regulator  generating  a  singular  Jacobian  matrix.  The  transmission 
line  assures  a  slightly  positive  voltage  magnitude. 

Figure  5.4-1  Synchronous  Generator:  Two  Phase  Fault 


Figure  5.4-2  w.elm:  Element  Description  File 


synch  ir.acn  soen 

f  2? 
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;-:q_pp 

0.171 

:-:ai 

0.1 

Tdo  p 

2.9 

Tdo_pp 

0.0 

Tqo_pp 

0.0 

Tad 

0.09954 

Ifni 

38.5 

H 

0.651 

PP 

2.0 

wbs 

376.99 

Vdb 

367.4235 

Pbs 

2 . 5e6 

end 

rl  wve  load 

R  0.2 

L  25e- 

6 

R1  1000 

end 

t  line  3p 

tline 

R  .0000 

1 

L  0.0 

Rl  1000 

.  0 

end 

switch  sw 

ab 

end 

switch  sw 

be 

end 

speed  reg 

gov 

wnlo 

187.36 

wds 

31.69 

wdTepu 

-10.07 

TBS 

13262.6 

Tg 

0.3275 

B 

0 

end 

volt  reg  - 

v  reg 

Vfdbs 

32.56 

K 

20.0 

Tvr 

0.15 

Vfmin 

0 

Vf  max 

120 

end 

t 


Figure  5.4-3  w.net:  Network  Description  File 

!  w.net 

!  Herbert  H.  Doerry 

i 

NODE  C 

v3:v  =  sgen:vOa  =  tlinesvOa  •=  v_reg:vOa 
i3 : i  =  saen:iOa  *»  tline:iOa 
end 

NODE  B 
v :  v  = 
v : v_b  = 
v : v_e  = 
i :  i  = 
i : i_b  = 
i : i_c  = 
end 

NODE  Mech 
v : theta 


v :  V.TT. 

v :  wir.  dt 
rv :  s  = 
end 

KCEE  ref 
y  :  Te 
v : r £ i_q 


tl ine : vl a 
tline  :  vlb 
tline : vie 
tline  :  ila 
tline : ilb 
tline :  ilc 


=  load:vCa 
=  loadsvOb 

■  load:vOc 
*  load:iOa 
m  load:iOb 

■  load:iOc 


“  sw_ab:vO 
=  sw~ab:vl 
-  sw_bo:vl 

*  sw~ab:iO 

*  sw_ab:il 
=  sw  bc:il 


*  sw_bc:vO 
■  sw  bc:iO 


=  sgen:theta 
3~~  -  v  regiwbs 
=  sgen:wm  =  gevswm 
=  sgen:wm_dt 
.04  =  gov:s 

=  sgen:Te  =  gcv:Tm 
=  sgen:rsi_q 
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v : Fe i_d 
rv : vO  =  0 
r  i :  ii 

rv:lon  =  0 
end 

NODE  field 
rv:fgv  **  0 
v :  f  ■ v 

ri:fgl  = 
i :  f  i 
end 


sgen :Psi_d 
sgen : vOn 
load : iOn 
load:vOn 


0  *  v_reg:vOf 
v_reg:vlf 
v_reg:iOf 
v_reg : ilf 


sgen : vOf 
sgen: vlf 
sgen: iOf 
sgen: ilf 


NODE  Vreg 

rv:vhs  **  367.42  *  v_reg:vbs 
v:vt  =  v_reg:vt 
v:ph  =  v_r eg: phase 
end 


i 


Figure  5.4-4  w.init:  Initialization  File 


!  w.init 

!  Norbert  H.  Doerry 


INITIALIZE 

| 

v_reg : iCf 
v_reg: ilf 
v_reg: vt 
v_reg: Verr 
v_reg:Vsig 
v_reg : theta 
gov: Tm_order 
gov : Tmpu 
sgen : iOa 
sgen : iOb 
sgen : iOc 
sgen : iOf 
sgen : ilf 
sgen : s_theta 
sgen : s_wm 
sgen:wm  dt 
sgen :psT_d 
sgen :psi_q 
sgen : eq_p 
sgen : eq_pp 
sgen : ed_pp 
sgen : d_psi_d 
sgen : d_psi_q 
sgen : d_e q_p 
sgen : d_eq_pp 
sgen:d  ed_pp 
tline :T0a 
tl ine : iOb 
tline : iOc 
tline : ila 
tline : ilb 
tline : ilc 
tline : ia 
tline : ib 
tline : ic 
load : iOa 
load : iOb 
load : iOc 


load :  ia 
load : ib 
load : ic 


41.26 

-41.26 

366.15 

0.0034541 
0.069814 
0.12889 
0.41106 
0.41204 
-1697.5 

1442.6 

254.8 
-41.26 
41.26 
-0.38396 
184.49 
0.048494 
1.0147 
-0.10438 
1.025 
1.0218 
0.035732 
-0 . 00067673 
2 .2902 le-05 
-0 . 00066281 
0 
0 

1697.5 
-1442.6 

-254 . 8 
-1697.5 

1442.6 

254 . 8 

-1697.5 

1442.6 

254 . 8 

1697.5 
-1442.6 
-254 . 6 
339. 49 
-288 . 53 
-50.957 

1697.5 
-1442.6 
-254.8 
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NODE  VOLTAGE 
C  :  v 
0 :  v_b 
C :  v_c 
B :  v 
B :  v_b 
B  :  v _ c 

Mech : theta 
Mech : wm 
Mech:wm  dt 
ref : Te 
ref : Psi_q 
ref : Psi_d 
field: fv 
Vreg:vt 
Vreg :ph 
END 


INITIALIZATION 

339.49 

-288.53 

-50.957 

339.49 
-288.53 

-50.957 

-0.38396 

184.49 
0.048494 
5464.7 
-0.10438 

1.0147 

56.229 

366.15 

-.51287 


EXTERNAL  INPUTS  INITIALIZATION 
sw_ab: switch  0 
sw_bc: switch  0 
END 


i 


Figure  5.4*5  w2.sim:  Simulation  File 


! w2 . sim 

t 

SIMULATION 

I 

DISPLAY 
C :  v 
C :  v_b 
C:v_c 
sgen : Tepu 
sgen : vd 
sgen : vq 
sgen : id 
sgen :  iq 
sgen : i f d 
Vrea : vt 
field: fv 
ref :Te 
Mech : wm 
load :  I  a 
END 


TIME  STEF  0.00025 
TKIN  0 

UMAX  4 . 5 

PRINT  STEP  0.002 
DELTA  0.01 

DELTA_MIN  0.01 
CONVERGE  le-10 
MAX_ I T ERAT I ON  50 
F.EFEP.ENCE 
I :  C :  i 
END 

EXTERNAL  INPUTS 

sw_ab: switch  1  0.5 
sw_ab: switch  0  1.5 
END 


The  results  of  the  simulation  are  shown  in  figures  5.4-6  through  5.4-1 1.  Notice  that 
the  terminal  voltage  oscillates  during  the  fault  due  to  the  method  by  which  the  voltage  regulator 
determines  the  rms  voltage.  Figure  5.4-6  shows  a  high  frequency  oscillation  of  the  generator 


rotor  during  the  fault.  The  field  voltage  clips  at  the  maximum  level  which  causes  the  terminal 
voltage  to  drop  in  magnitude  during  the  fault.  After  the  fault  clears,  the  generator  returns  to 
the  steady  state  condition  within  about  three  seconds. 

Figure  5.4-6  RPM  vs  Time  Figure  5.4-7  Torque  PU  vs  Time 


(SYVCi  HAOnWtt  ATM  ve  Ti»* 


1105 

ItOO 

nts 

17*0 

1705 

1700 

1775 

1770 

1705 

1700 

1755 

1750 

1745 


*  J  S  *  <3  J  J  S  9  f-3 


£ 


(SYNC!  HACK  INI)  Torque  TV  t»  Tint 


0  Cs  J  J  J3  9  <3 


tin*  Uec) 


tin*  <*«c) 


Figure  5.4-8  vd  and  vq  vs  Time  Figure  5.4-9  id  and  iq  vs  Time 


(SYNC!  MAC  ■  I  Hi  t  vd  and  vq  v$  TiJte  (0YHC1  HAC0IHII  id  and  lq  v»  Ti*« 


tur«  tide*  *  * 
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Torqe* 


Figure  5.4-10  Line  Voltage 


Figure  5.4-11  Field  Voltage 


<IYMC*  HACilKtl  Terminal  Volta?*  (rma  lino) 


(fYHCl  MAC I I Kt I  riald  Volta?* 


5.5  Synchronous  Generator:  Three  Phase  Fault 

The  previous  section  simulated  a  two  phase  fault.  This  simulation  shows  the  transient 
response  of  the  synchronous  generator  due  to  a  symmetrical  three  phase  fault.  The  network 
is  identical  to  the  one  used  in  section  5.4.  The  only  change  in  the  input  file  was  the  addition 
of  two  entries  in  the  external  input  queue  of  the  Simulation  File. 

Figure  5.5-1  Synchronous  Generator:  Three  Phase  Fault 


Figure  5.5-2  w3.sim:  Simulation  File 
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PRINT_STEP  0.002 
DELTA  0.01 

DELTA  MIN  0.01 
CONVERGE  1*-10 
MAX_ITERATION  50 
REFERENCE 
I:C:i 
END 

EXTERNAL  INPOTS 

•w_*bs switch  1  0.5 
sw~bc: switch  1  0.5 
sw~sb: switch  0  1.5 
sw~bc! switch  0  1.5 
END 


The  results  of  the  simulation  are  shown  in  figures  5.5-3  through  5.5-8.  Initially,  the 
speed  of  the  generator  increases  due  to  the  sudden  loss  of  load.  This  speed  is  controlled 
however,  by  the  dynamics  of  the  speed  governor.  During  the  short,  the  line  voltage  drops 
almost  to  zero.  The  voltage  regulator  responds  to  this  by  increasing  the  field  voltage  until 
clipping  occurs  at  the  preset  value  of  1 20  volts.  The  field  voltage  stays  at  this  level  well  after 
the  fault  clears  and  until  the  line  voltage  approaches  its  reference.  The  torque  characteristic 
is  the  typical  response  expected  during  a  three  phase  fault. 

Figure  5.5-3  RPM  vs  Time  Figure  5.5-4  Torque  PU  vs  Time 

<*YXC*  KACilKt*  RPM  Ti mm  <*YWC1  MACIIMt)  Torque  fV  Tile* 
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5.6  Paralleled  Synchronous  Generators:  Switched  Load 

Shipboard  generators  often  operate  paralleled  with  one  another.  This  simulation  shows 
the  transient  effects  on  two  identical  generators  that  are  connected  in  parallel  and  subjected 
to  a  .4  per  unit  load  for  4  seconds.  The  generators  and  load  are  identical  to  those  used  in 
section  5.3.  Figure  5.6-1  shows  the  network  structure.  The  transmission  line  element  was 
inserted  in  parallel  with  the  generator  paralleling  switch  to  prevent  a  singular  system  Jacobian 
matrix  when  the  switch  is  opened.  Without  the  transmission  line,  there  would  be  two 
independent  circuits  when  the  switches  are  open  and  only  one  independent  circuit  with  the 
switches  closed.  The  problem  stems  from  the  requirement  for  one  reference  voltage  subnode 
and  one  reference  current  subnode  for  each  independent  circuit.  Adding  a  transmission  line 
ensures  there  is  always  only  one  independent  circuit.  By  assigning  a  large  resistance  to  the 
transmission  line,  its  effect  on  the  solution  is  negligible. 

Figure  5.6-1  Paralleled  Synchronous  Generators 


Figure  5.6-2  x.elm  :  Element  Description  File 


!  .  e  1  m 

!  Herbert  H.  Doerry 

I 

ryneh_mach  saen_a 
Kd  1.38 


>:q_pp  0.171 


:-:ai  0 . 1 
Tde_p  2.9 
X dc_cp  C.O 
Tcc_pp  G . 0 
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Tad 

0.09954 

Ifni 

38.5 

H 

0.651 

PP 

2 

whs 

376.99 

Vdb 

367.4235 

Pbs 

end 

2 . 5e6 

svnch_mach  sgen_b 


::d 

1.38 

0.26 

0.25 

::d_pp 

0.171 

•“3_pp 

0.1^1 

al 

0.1 

Tdo  p 

2.9 

Tdo_pp 

0.0 

Tqo_pp 

0.0 

Tad 

0.09954 

Ifni 

38.5 

H 

0.651 

PF 

2 

wbs 

376.99 

Vdb 

367.4235 

Pbs 

end 

2 . 5e6 

speed_reg 

wnlo 

wds 

wdTepu 

TBS 

Tg 

B 

and 

; 

speed__reg 

wnlo 

wds 

wdTepu 

TBS 

Tg 

B 

end 

] 

volt_reg 
Vf  dbs 
K 

Tvr 

Vfmax 

Vfmin 

end 

I 

volt_reg 
Vf  dbs 
K 

Tvr 
V  f  max 
Vfrr.in 


gov_a 

167.36 

31.69 

-10.07 

13262.6 

0.3275 

0.0 


gov  b 
187.36 
31.69 
-10.07 
13262.6 
0.3275 
0.0 


v  reg  a 
52.56 
20.0 
0 .15 
120 
0 


v_reo_b 
52.56 
20 . 0 
0.15 
120 
0 


end 

i 

rl  wve  lead 


r  1  1000 

end 

! 


switch  3p 

sw_ld 

end 

switch_3p 

sw  oen 

end 
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t_line_3p  tline 
P.  100000 
F.l  0 
L  0 
end 


Figure  5.6-3  x.net :  Network  Description  File 

!  ::.net 

j 

NETWORK 

I 

NODE  C 

v3:v  =  sgen_b:v0a  =  sw_gen:vOa  =  tline:v0a  =  v_reg_b:v0a 

13 : i  =  sgen_b:i0a  =  sw_gen:iOa  =  tline:i0a 

end 

NODE  B 

v3:v  =  sw  Idsvla  =  load:v0a 
i3 : i  =  sw_ld:ila  =  load:i0a 
end 

NODE  A 

v3sv  =  sgen_a:v0a  =  sw_ld:v0a  =  sw_gen:vla  =  tli.ne:vla  =  v_reg_asv0a 

i3:i  =  sgen_a:iOa  =  sw_ld:i0a  =  sw_gen:ila  =  tlinerila 

end 

NODE  Mech_a 

v:theta  =  sgen_a:theta 

rv:wbs  =  377  =  v_reg_a;wbs 
v:wm  =  sgen_a:wm  =  gov_a:wm 

v:wm_dt  =  sgen_a: wm_dt 

rv:s  =  0.04  =  gov_a:s 

end 

NODE  Mechjb 

v: theta  »  sgen_b: theta 
rv:wbs  =  377  =*  v_reg_b:wbs 
v:wm  «=  sgen_b:wm  *  gov_a:wm 

v : wm_dt  =  s  gen_b : wm_dt 

rv:s  =  0.04  =  gov_E:s 

end 

NODE  ref_a 

v:Te  =  sgen_a:Te  ■  gov_a:Tm 

v:Psi_q  «=  sgen_a:Psi_q 

v:Psi_d  =  sgen_a:Psi_d 

rv:vO  =  0.0  =  sgen_a:v0n 

end 

NODE  ref_b 

v ; Te  =  sgen_b; Te  =  gov_b:Tm 

v:Psi_q  =  sgen_b:Psi_q 

v : Psi_d  =  sgen_b:Psi_d 

rv:v0  =  0.0  =  sgen_b:v0n 

end 

NODE  ref_ld 

ri : 11  =  load : iOn 

rv: Ion  =  0.0  =  load:v7n 

end 

NODE  f ield_a 

rv:fgv  =  0.0  =  v_reg_a:v0f  =  sgen_a:v0f 

v:fv  =  v_reg_a:vlf  «  sgen_a:vlf 

risfgi  =  v_reg_a:i0f  *  sgen_a:10f 

i:fi  =  v_reg_a:ilf  »  sgen_a:ilf 

end 

r " : i gv  =  0.0  =  v  reg  b:v0f  =  sgen  b:v0f 

vsfv  -  v_reg  b:vlf  =  sger._b:vl£ 

riifgi  =  v_reg_b:i0f  =  sgen_b:i0f 

i:fi  =  v_reg_b:ilf  =  sgen_b:ilf 

end 

NODE  Vreg_a 

rv:vbs  =  3£7.42  =  v_re  g_a : vbs 
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v i vt  «  v_r eg_a : vt 
viph  ■  v_reg_a iphase 
end 

NODE  Vr*g_b 

rvsvba  "  367.42  “  v_reg_b:vbs 
v i v t  «  v_reg_b :vt 
viph  »  v  rag  biphase 
end 


Figure  5.6-4  x.init :  Initialization  File 


4ITIALICE 

v_r«g_a i iOf 

38.499 

v_r«g  a : Ilf 

-36.499 

agen  aiiOa 

0 

seen  aiiOb 

0 

agan  aiiOc 

0 

sgan_a  :  iOf 

-38 .499 

sgen_a i ilf 

38 .499 

s gen_a : s_theta 

0.0 

sgtn  ais  wm 

188.5 

sger.  ais  wm  dt 

0 

sgen  a:psi_d 

1 

agan  aipai  q 

0 

sger.  aieq__p 

1 

sgen  a:eq_pp 

1 

agan  a:ed  pp 

1 

gov_a i Tm_ord«r 

0 

gcv_a:Tmpu 

0 

v_reg_b: iOf 

38 .499 

v_reg  biilf 

-38.499 

agen_Ei iOa 

0 

sgen  biiOb 

0 

sgen_b : iOc 

0 

sgen  biiOf 

-3e .499 

sgen  biilf 

38.499 

sgen_b : s_theta 

0.0 

sgen  bis  wm 

188.5 

agan  b : s  wm  dt 

0 

agan_b :psi_d 

1 

sgen  bipsi  q 

0 

sgen  bieq_p 

1 

sgen_b : eq_pp 

i 

sger.  tied  pp 

1 

gc  v  t : Tm  order 

0 

gc  v  biTmpj 

c 

END 

NODE  VOLTA3E  INITIALIZATION 
3 : v  367.4 

C:v_b  -183.7 

C : v_c  -183.7 

A: v  367.4 

A : v_b  -183.7 

A: vc  -182.7 

Mech_a: theta  0 
Mech  a : wm  dt  0 


Mech_aiwm  188.5 
ref  a:Te  0 


7req_a : vt  367.4 
Vreg_a:ph  0.0 
Mech  fc: theta  C 


Me  rh__b  :  wm_dt  0 
Mech  b  :  wit,  168.5 
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ref_b:Te  0 

ref_b:Fsi_q  0 
ref_b:Pai_d  1 
field_b:fv  52.56 
Vrea_b:vt  367.4 
Yrea_b:ph  0.0 

end’ 

I 

EXTERNAL  INPUTS  INITIALIZATION 
sw  id: Switch  0 
sw  aer.:  Switch  0 

end' 

I 

Figure  5.6-5  x2.sim  :  Simulation  File 


!  ::2  .  sim 
| 

SIMULATION 

i 

DISPLAY 
A:  v 
A:  v_b 
A. :  v_c 

s gen  a:Tepu 
sger._a :  vd 
sgen_a : vq 
sger<_a :  id 
sqen_a : iq 
sgen_a : ifd 
Vreg_a : vt 
f ield_a : fv 
ref_a : Te 
Me  ch_a : wm 
load : la 
sgen_b:Tepu 
sgen_b : vd 
sgen_b : vq 
sgen_b : id 
sgen_b : iq 
sger._fc :  ifd 
Vreg_fc : vt 
f ield_b : f v 
ref_b : Te 
Mech._b :  wm 
END 

I 

TIME  STEP  0.00025 

TWIN  0 

TKAX  e 

PEINT_STEF  0.002 

DELTA  0.C1 

DELTA_MIN  0.G1 

CONVERGE  le-10 

MAX_ITERAT ION  50 
REFERENCE 
I :  A:  i 
END 

i 

EXTERNAL  INPUTS 

i 

EW_oen : Switch  1  0.004 
ew  id:Switsh  0  0.0 
rv._:u:Iv:i 1  C.'.l 
ew  id:  Swat  or.  C  4.0 
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The  results  of  the  simulation  are  shown  in  figures  5.6-6  through  5.6-11.  Since  the 
generators  are  always  in  parallel  when  the  load  switches  on  and  off,  the  response  is  similar 
to  the  results  in  section  5.3  but  with  smaller  deviations  due  to  the  addition  of  the  second 
generator. 

Figure  5.6*6  RPM  vs  Time  Figure  5.6*7  Terminal  Voltage  vs  Time 
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Figure  5.6-8  Field  Voltage  vs  Time 
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Figure  5.6-9  Tepu  vs  Time 
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Figure  5.6*10  id  and  iq  vs  Time 


Figure  5.6*11  vd  and  vq  vs  Time 


5.7  Paralleled  Synchronous  Generators:  Switched  Load 

Shipboard  generators  often  operate  paralleled  with  one  another.  This  simulation  shows 
the  transient  effects  on  two  identical  generators  that  are  connected  in  parallel  and  subjected 
to  a  .4  per  unit  load  for  4  seconds.  After  the  4  seconds,  one  of  the  generators  is  detached 
from  the  load.  The  generators  and  load  are  identical  to  those  used  in  section  5.6.  Figure 
5.7-1  shows  the  network  structure  which  is  identical  to  the  structure  in  the  previous  section. 

Figure  5.7-1  Paralleled  Synchronous  Generators 


The  input  file  for  this  simulation  is  identical  to  the  input  file  described  in  section  5.6 
with  the  exception  of  minor  changes  to  the  simulation  file. 

Figure  5.7-2  x3.sim  :  Simulation  File 

!  3  .  sim 

i 

SII-ICLATION 

I 

DISFLAY 
A:  v 
A :  v_b 
A :  v  c 


sgen_a : Tepu 


sgen  a : 

vd 

soen  a  : 

va 

agenda : 

id 

sgen  a : 

saen  a : 

if  d 

7r eg  a: 

vt 

field  a 

. 

ref  a  :  7 

e 

Me  ch  a  : 

V.'.T 

ic  a  ci :  *  a 

saen  b  : 

Tep' 

sgen  b  : 

**d 

saen  hi 

”q 

saen  hi 

id 

sgen  hi 

i  a 
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sgen_b : i  f  d 
Vreg  b :  vt 
f  i«l<J_b : fv 
r#f_b : Te 
M«ch_b : wm 
END 

i 

TIME  STEP  0.00025 


PRINT_STEP  0.002 
DELTA  0.01 

DELTA  MIN  0.01 
CONVERSE  1«-10 

MAX  ITERATION  50 
REFERENCE 
I :  A:  i 
END 

I 

EXTERNAL  INPUTS 

; 

sw_gen s Switch  0  0.0 
sw_gen : Switch  1  0.004 
sw_ld: Switch  0  0.0 
aw_ld: Switch  1  0.01 
sw_ger. :  Switch  0  4.0 
END 


The  results  of  the  simulation  are  shown  in  figures  5.7-3  through  5.7-8.  For  the  first 
four  seconds,  the  simulation  is  identical  to  the  previous  simulation.  When  the  switch  con¬ 
necting  the  two  generators  opens  however,  the  two  generators  have  different  transient 
responses  as  they  attain  their  new  steady  state  conditions.  Figure  5.7-3  clearly  shows  the 
effect  of  the  droop  characteristic  of  the  speed  governor. 


Figure  5.7-3  RPM  vs  Time 


Figure  5.7-4  Terminal  Voltage  vs  Time 
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Figure  5.7-5  Field  Voltage  vs  Time 


Figure  5.7-6  Tepu  vs  Time 
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CHAPTER  6 


CONCLUSIONS 

6.1  Assessment  of  SEPSIP 

In  its  present  form,  SEPSIP  is  useful  for  analyzing  simple  and  moderately  complex 
electrical  networks.  Since  the  time  required  for  a  simulation  is  proportional  to  the  cubic  of 
the  order  of  the  system  (Gaussian  Elimination),  large  simulations  require  an  unreasonable 
amount  of  time.  Careful  design  of  the  network  to  minimize  the  system  order  can  help  tre¬ 
mendously  in  reducing  the  execution  time  of  SEPSIP.  Other  possible  methods  of  improving 
the  speed  of  SEPSIP  include  running  the  program  on  a  faster  computer  and  making  simple 
changes  to  the  program.  The  following  section  provides  details  on  several  options  for 
increasing  SEPSIP’s  speed. 

The  decision  to  use  SEPSIP  or  a  general  simulation  language  such  as  ACSL  for  the 
simulation  of  shipboard  systems  depends  on  what  exactly  is  desired  to  be  modeled.  If  the 
desire  is  to  simulate  the  respose  of  a  new  type  of  device,  ACSL  may  be  superior.  Writing 
robust  device  driver  routines  for  SEPSIP  that  are  fast,  stable  and  accurate  can  be  difficult 
and  time  intensive.  Creating  the  device  models  on  ACSL  should  normally  require  less  time 
since  physically  writing  and  compiling  code  is  not  required.  Once  the  device  models  have 
been  created  however,  the  advantage  shifts  greatly  to  SEPSIP.  SEPSIP’s  built  in  provisions 
for  organizing  and  interconnecting  a  number  of  devices  into  a  network  are  far  superior  to  the 
capabilities  resident  in  ACSL.  ACSL  is  not  really  designed  to  handle  network  architectures 
and  forcing  it  to  do  so  results  in  large  unmanageable  input  files  that  are  hard  to  debug.  In 
short,  ACSL  is  better  at  modeling  individual  devices  while  SEPSIP  is  far  superior  in  orga¬ 
nizing  models  into  networks. 
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6.2  Future  Improvements 

SEPSIP,  like  any  other  computer  program,  will  never  be  completed.  There  will  always 
be  a  number  of  possible  improvements  that  only  take  time  and  effort  to  impliment.  The 
following  sections  detail  some  of  the  possible  improvements  to  the  present  version  of  SEPSIP 
that  would  greatly  extend  its  utility'. 

6.2.1  Variable  Time  Step 

Many  simulations  would  run  much  faster  if  a  variable  time  step  were  incorporated. 
Presently,  the  time  step  must  be  small  enough  to  capture  the  transient  response  of  the  fastest 
time  constant  of  interest.  However,  since  the  fast  time  constant  is  only  important  for  a  small 
time  period  after  a  disturbance,  using  the  small  time  step  for  the  remaining  time  is  very 
inefficient.  When  only  slow  time  constants  are  important,  larger  time  steps  can  be  used. 

One  way  of  implementing  variable  time  steps  in  SEPSIP  would  be  to  include  the  option 
of  adding  the  time  step  variable  to  the  EXTERNAL  INPUT  subsection  of  the  SIMU¬ 
LATION  section.  In  this  manner  the  time  step  variable,  its  new  value,  and  the  time  that 
the  new  value  takes  effect  can  all  be  specified. 

6.2.2  Replace  Gaussian  Elimination 

The  Newton-Raphson  method  used  to  solve  the  system  of  nonlinear  equations  requires 
the  solution  of  the  linear  equation  Jx  =  y.  Presently,  SEPSIP  uses  Gaussian  Elimination 
with  partial  pivoting  to  solve  for  x.  For  an  nth  order  system,  the  number  of  floating  point 
multiplication  operations  is  proportional  to  n3.  Since  x  is  only  used  to  produce  a  correction 
for  the  Newton-Raphson  method,  there  is  no  need  to  solve  exactly  for  it.  An  iterative  method 
for  solving  for x  can  cut  down  the  computation  time  considerably.  The  Gauss-Seidel  method 
for  example,  requires  on  the  order  of  only  n2  multiplication  operations  for  each  iterations. 
If  the  number  of  iterations  can  be  held  well  below  the  order  of  the  system,  a  speed  gain  will 
be  realized. 
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Giving  the  operator  the  choice  of  which  method  to  use  would  be  easy  to  implement 
and  would  not  add  any  extra  time  to  the  execution  of  the  simulation.  This  way  the  operator 
can  experiment  to  determine  which  is  the  better  method  for  the  simulation  under  study. 

6.2.3  Reuse  of  Jacobian  Matrix 

SEPSIP  presently  recalculates  and  inverts  the  Jacobian  matrix  for  each  iteration  of 
every  time  step.  If  the  Jacobian  matrix  does  not  change  very  fast,  there  is  no  need  to 
recalculate  it  for  each  iteration.  Allowing  the  user  to  specify  how  many  times  the  Jacobian 
matrix  is  used  before  it  is  recalculated  would  greatly  increase  the  speed  of  the  program  for 
certain  simulations. 

6.2.4  Output  Variables  and  Output  Subnodes 

One  way  to  increase  the  speed  of  a  simulation  is  to  decrease  the  order  of  the  system 
by  incorporating  output  variables  and  output  subnodes.  An  output  variable  would  be 
explicitly  defined  by  an  element  and  connected  to  one  or  more  input  variables  through  the 
output  subnode.  The  output  subnode  would  equate  all  of  the  input  variables  to  the  output 
variable.  For  this  reason,  there  would  not  be  a  system  variable  associated  with  the  output 
subnode.  Presently,  all  the  variables  would  have  to  be  implicitly  defined  and  connected 
with  a  voltage  subnode  that  adds  a  system  variable. 

6.2.5  Action  Files 

Action  Files  are  text  files  that  contain  a  list  of  SEPSIP  commands.  When  an  Action 
File  is  called  from  within  SEPSIP,  control  would  pass  from  keyboard  entry  to  the  commands 
contained  in  the  file.  Once  all  of  the  commands  have  been  executed,  control  shifts  back  to 
keyboard  entries.  This  feature  allows  one  to  run  a  number  of  long  simulations  sequentially 
without  reamaining  at  the  computer  terminal. 

Modifying  SEPSIP  to  accomodate  Action  Files  would  require  replacing  all  calls  to 
the  system  function  gets  with  a  call  to  another  routine  that  would  determine  which  input 
stream  to  use.  The  code  would  look  similar  to: 
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♦include  <stdio.h> 

♦include  "doerry.h" 

l*  structure  for  keeping  track  of  the  present  stream  */ 
typedef  struct  Strm 
{ 

FILE  *in; 

struct  Strm  ‘last; 

} 

STRM; 

,'*  This  is  the  initialization  code  which  sets  the 
stream  to  stdin  ‘/ 

static  STRM  *strm; 

init_strm( ) 

{ 

char  *calloc(); 

strm  =  (STRM  *)  calloc ( (unsigned)  1  ,  sizeof (STRM) ) ; 
strm->in  =  stdin; 
strm->last  =  NULL; 

} 

/*  edit_strm  sets  the  current  stream  to  the  value  passed 
to  it  */ 

edit_strm(stm) 

FILE  *stm; 

{ 

char  ‘calloc (); 

STRM  *temp; 

temp  «*  (STRM  *)  calloc ( (unsigned)  1,  sizeof ( STRM) ) ; 
temp->in  “  stm; 
temp->last  »  strm; 
strm  “  temp; 

} 

/*  gets_in()  replaces  gets()  as  the  routine  for  reading  in  a 
line  from  stdin  */ 

char  *gets_in (string) 
char  ‘string; 

{ 

int  i; 

i  =  f gets ( string , MAXCHAR, strm->in) ; 

,'*  see  if  read  to  the  end  of  the  file  */ 
while  (i  ==  NULL  S&  strm->last  !=  NULL) 

{ 

strm  =  strm->last; 

i  =  f gets ( string, MAXCHAR, strm->in) ; 

} 

/*  get  rid  of  trailing  carriage  return  */ 
i  =  strlen (string)  -  1; 

if  (i  >=  0  &£  string(i]  »=  ' \n' )  string[i]  ■  NULL; 
return  string; 

) 
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6.2.6  Integrated  Graphics 

SEPSIP  was  intentionally  written  without  any  graphics  to  improve  the  portability  of 
the  code.  In  general,  graphic  subroutines  tend  to  be  machine  specific  and  therefore  require 
much  revision  when  transferred  to  another  computer.  SEPSIP  has  circumvented  this  problem 
somewhat  by  using  a  totally  separate  plotting  program  (Norplot)  to  display  the  data. 
Unfortunately,  the  data  can  only  be  plotted  once  the  simulation  is  totally  finished.  It  would 
at  times  be  beneficial  to  observe  the  display  variables  in  a  graphical  form  as  the  simulation 
progresses.  If  the  simulation  goes  unstable,  the  program  can  immediately  be  halted  instead 
of  waiting  for  its  completion. 

Portability  could  still  be  maintained  to  a  degree  by  using  only  a  few  general  routines 
that  could  be  easily  modified  for  whatever  system  SEPSIP  is  installed  on.  These  routines 
would  include 

terminit()  Initialize  the  Graphics  Screen 

clrscmO  Clear  the  Graphics  Screen 

move(x,y)  Move  to  (x,y) 

draw(x,y)  Draw  to  (x,y) 

windset(xmn,xmx,ymn,ymx)  Set  the  coordinates  of  the  comers 

windget(xmn,xmx,ymn,ymx)  Get  the  coordinates  of  the  corners 

g_puts(str, height, rot)  Print  a  string  on  the  Graphics  Screen 

termend()  End  the  Graphics  Screen 

These  routines  should  all  be  contained  in  one  file  that  can  rewritten  to  conform  to  the 
graphics  interface  of  each  particular  machine. 

6.2.7  Implement  external  variable  ’types’ 

The  original  concept  for  SEPSIP  was  to  be  able  to  specify  the  external  input  and  output 
variables  to  be  one  of  four  types:  floating  point,  integer,  Boolean,  and  Switch.  Presently, 
only  the  floating  point  type  is  truly  implemented.  Adding  the  capability  to  recognize  and 
print  out  the  four  types  would  improve  the  ability  of  the  user  to  specify  his  or  her  desires 
and  to  understand  the  results  of  the  simulation.  A  switch  being  on  is  more  informative  than 
a  switch  having  a  value  of  1 .0.  Likewise  a  variable  called  overspeed_sensor  having  a  value 
of  false  is  more  informative  than  having  a  value  of  0.0. 
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6.2.8  Optimization  for  speed 

While  a  conscious  effort  was  made  to  write  efficient  code,  there  is  still  plenty  of  room 
for  improvement.  There  are  a  number  of  places  where  speed  was  sacrificed  for  clarity  in 
reading  the  source  code.  In  any  software  project,  there  is  always  the  conflict  between  writing 
fast  routines,  and  routines  that  can  be  easily  understood.  Usually  it  is  a  good  idea  to  initially 
write  understandable  code  that  can  easily  be  debugged.  If  the  resulting  code  runs  too  slowly, 
the  code  can  always  be  optimized.  SEPSIP  is  presently  at  this  state  and  requires  some 
optimization  to  improve  its  performance. 

6.2.9  Check  for  Recursive  INCLUDE  Files 

The  present  version  of  SEPSIP  does  not  check  for  recursive  INCLUDE  statements 
where  a  file  tries  to  include  itself  or  a  file  above  itself  in  the  stack  of  include  files.  Con¬ 
sequently,  it  possible  to  construct  an  input  file  that  will  cause  SEPSIP  to  enter  an  infinite 
loop  as  it  recursively  opens  the  same  files  over  and  over  again.  Normally  this  is  not  a 
problem  since  for  clarity  the  input  file  structure  should  not  be  very  complex  and  any  recursion 
would  therefore  be  easily  noticed.  However,  this  condition  should  not  be  allowed  to  exist 
and  SEPSIP  should  check  for  it. 

6.2.10  Break  Key 

Once  a  simulation  begins  in  the  present  version  of  SEPSIP,  the  only  way  to  terminate 
the  simulation  before  it  is  completed  is  to  terminate  the  execution  of  the  program  with  a 
"control  c".  Since  a  simulation  can  take  some  time  to  complete,  it  would  be  useful  at  times 
to  be  able  to  stop  a  simulation  in  the  middle  by  depressing  a  specific  key,  observe  some  of 
the  internal  variables,  and  possibly  continue  the  simulation.  Unfortunately,  there  is  no 
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standard  way  in  the  C  programming  language  to  determine  if  a  key  has  been  depressed 
without  the  user  entering  a  carriage  return1.  Most  systems  do  provide  a  way  ot  accomplishing 
such  "unbuffered  10"  but  the  implementations  are  very  system  dependent. 


1  C  normally  employs  buffered  input  where  the  characters  a  person  types  in  from  die  key¬ 
board  are  not  available  to  the  program  until  the  return  key  is  depressed.  This  allows  the 
user  to  edit  the  input  line  before  the  program  has  access  to  it.  A  consequence  of  buffered 
input  is  that  when  a  program  requests  input  from  the  keyboard,  the  program  waits  until  a 
return  is  entered.  In  this  case,  we  do  not  want  the  program  to  wait  for  a  return  because 
the  operator  would  have  to  hit  the  return  key  every  time  the  program  checks  for  a  charac¬ 
ter. 
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APPENDIX  A 


GLOSSARY 

BALANCING  THE  SYSTEM 

Balancing  the  System  refers  to  the  process  of  varying  the  input  variables  until  all  of  the 
implicit  variables  for  all  of  the  elements  are  within  tolerable  limits  of  zero.  When  the  Mean 
Square  error  of  the  implicit  variables  are  less  than  the  CONVERGE  limit,  the  system  is 
considered  balanced. 

CONSTITUTIVE  EQUATIONS 

Constitutive  equations  describe  the  relationships  between  the  input  variables,  state 
variables,  parameters,  and  external  input  variables  of  a  device.  For  many  devices,  the  con¬ 
stitutive  equations  are  used  to  define  implicit  variables  that  have  a  value  of  zero  when  the 
constitutive  laws  are  satisfied. 

DEVICE 

A  Device  is  a  type  of  electrical  or  mechanical  machinery  that  can  be  included  in  a  network 
description.  The  device  is  described  by  a  number  of  constitutive  equations  that  relate  input 
variables  to  state  variables,  parameters,  and  external  input  variables.  Examples  of  devices 
include  resistors,  synchronous  generators,  reduction  gears,  turbines  and  switches. 
ELEMENT 

An  Element  is  a  -specific  example  of  a  device  that  has  its  own  name  and  parameter  values 
associated  with  it.  A  resistor  for  example,  would  be  a  device  while  R2  which  has  a  value  of 
10  K  ohms  would  be  an  element. 

EXTERNAL  INPUT  VARIABLE 

An  External  Input  Variable  allows  the  operator  to  specify  an  input  to  an  element 
externally  from  the  network  description.  The  external  input  variables  are  specified  in  a  Queue 
that  is  specified  in  the  Simulation  section  of  the  input  file.  External  input  variables  can  also 
be  initialized  in  the  Initialize  section. 
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EXTERNAL  OUTPUT  VARIABLE 

External  Output  Variables  are  variables  generated  by  an  element  that  the  operator  may 
chose  to  display  during  the  simulation.  Only  external  output  variables,  external  input  variables, 
and  voltage  subnode  voltages  can  be  displayed. 

IMPLICIT  VARIABLE 

Implicit  Variables  are  calculated  by  each  element  from  the  input  variables,  parameters, 
state  variables,  and  external  input  variables.  The  implicit  variables  have  a  value  of  zero  when 
the  constitutive  laws  governing  the  element  are  satisfied. 

INPUT  VARIABLE 

Input  Variables  are  used  by  the  device  descriptions  to  generate  the  implicit  variables. 
Within  the  device  description,  the  input  variables  are  implicitly  defined.  Values  are  assigned 
to  input  variables  by  the  network  description. 

JACOBIAN  MATRIX 

A  Jacobian  Matrix  contains  the  partial  derivatives  of  the  implicit  variables  with  respect 
to  the  input  variables.  In  SEPSIP  each  element  generates  its  own  Jacobian  Matrix.  From  the 
elemental  Jacobian  Matrices,  a  system  Jacobina  Matrix  is  generated  that  contains  the  partial 
derivatives  of  all  the  implicit  variables  with  respect  to  all  of  the  system  variables. 

KEYWORD 

A  Keyword  is  a  word  that  is  used  by  SEPSIP  to  delimit  sections  of  the  input  file. 
Keywords  are  case  insensitive  and  should  not  be  used  as  Element  names  or  Node  names. 
KIRCHHOFF’s  LAWS 

Kirchhoff’s  Voltage  and  Current  Laws  determine  the  relation  of  currents  and  voltages 
at  an  electrical  node.  For  a  number  of  elements  that  are  attached  to  a  node,  the  sum  of  all  the 
currents  entering  the  node  must  equal  zero.  Furthermore,  the  voltage  at  a  node  is  the  same 
for  each  of  the  elements. 

NETWORK 
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A  Network  specifies  the  interconnection  of  elements  within  a  simulation.  In  SEPSIP, 
the  Network  is  defined  by  assigning  input  variables  to  one  of  four  types  of  subnodes  that  are 
in  tum  grouped  into  nodes. 

NODAL  EQUATIONS 

Nodal  Equations  are  the  mathematical  representations  of  Kirchhoff’s  Laws.  The  nodal 
equations  are  used  to  relate  the  input  variables  of  all  the  elements  of  the  system  to  the  system 
variables. 

NODE 

A  Node  in  electrical  terms  is  a  connection  between  terminals  of  two  or  more  electrical 
elements.  Associated  with  each  node  are  two  expressions  which  are  mathematical  statements 
of  Kirchhoff’ s  voltage  and  current  laws.  In  SEPSIP,  these  mathematical  relations  are  assigned 
to  subnodes.  A  SEPSIP  Node  is  used  to  gToup  subnodes  into  easily  understood  groups.  An 
Electrical  Node  is  represented  in  SEPSIP  by  a  SEPSIP  Node  having  a  voltage  subnode  and  a 
current  subnode. 

PARAMETER 

A  Parameter  is  used  to  define  an  element  as  a  specific  example  of  a  device.  Parameters 
are  assigned  values  in  the  first  section  of  the  SEPSIP  input  file  and  can  not  be  changed  during 
the  simulation. 

STATE  VARIABLE 

State  Variables  are  variables  internal  to  an  element  whose  value  at  the  end  of  the  last 
time  increment  are  saved  and  available.  State  variables  are  normally  used  for  integration  and 
differentiation.  For  elements  that  are  described  by  state  machines  (such  as  circuit  breakers), 
state  variable  can  also  be  used  to  indicate  the  present  state  of  the  element. 

SUBNODE 

A  subnode  is  used  in  SEPSIP  to  define  the  relation  between  the  element  input  variables 
attached  to  it.  There  are  four  types  of  subnodes  each  of  which  specify  a  different  relation  for 
the  attached  variables. 


SYSTEM  JACOBIAN  MATRIX 

The  system  Jacobian  matrix  contains  the  partial  derivatives  of  the  implicit  variables 
with  respect  to  the  system  variables.  This  matrix  is  used  to  create  corrections  to  the  sytem 
variables  which  in  turn  are  used  to  generate  input  variables  that  satisfy  the  constitutive  relations 
of  each  element. 

SYSTEM  VARIABLE 

The  system  variables  are  a  set  of  independent  variables  from  which  all  of  the  input 
variables  of  the  elements  can  be  derived  from.  The  number  of  system  variables  must  equal 
the  total  number  of  implicit  variables.  The  system  variables  are  defined  by  the  four  types  of 
subnodes. 
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APPENDIX  B 


INSTRUCTIONS  FOR  ADDING  DEVICES 

Adding  a  device  to  SEPSIP  is  a  five  part  process.  First,  a  device  driver  routine  must  be 
written  in  the  C  programming  language  that  calculates  the  implicit  and  external  output  variables 
along  with  the  Jacobian  matrix.  The  second  step  is  to  modify  a  special  input  file  which  SEPSIP 
uses  to  assign  the  number  and  variable  names  for  each  type  of  variable  (state,  input,  etc.).  The 
third  step  modifies  an  include  file  which  notifies  SEPSIP  of  the  existence  of  the  device  and 
the  name  of  the  routine  written  in  the  first  step.  The  fourth  step  involves  adding  the  device 
driver  file  name  to  the  Makefile.  The  Makefile  assists  in  the  recompilation  procedure 
accomplished  in  the  final  step. 

B.l  Write  Device  Driver  Routines 

The  major  role  of  the  device  driver  routine  is  to  calculate  implicit  variables  based  on 
the  values  of  input,  external  input,  state,  old_state,  and  parameter  variables  in  addition  to  the 
current  simulation  time  increment.  The  routine  can  also  calculate  external  output  variables 
and  a  Jacobian  matrix.  The  device  driver  routine  may  change  the  values  of  the  implicit, 
external  output,  and  state  variables.  Parameter,  input,  old_state,  and  external  input  variables 
should  not  normally  be  changed  by  device  driver  routines. 

B.1.1  Arguments 

A  device  driver  routine  should  have  the  format  shown  in  Figure  B.l-1 
Figure  B.l-1  Device  Driver  Routine 

f_dev_a  .  c  */ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "aoerry.h" 

/*  The  variables  should  be  defined  here  using  the  define  directive  */ 


ine 

vO 

e->con . in [ 0 ] 

ine 

v  1 

e->c:r. .  in  [  1  ] 

^  c. 

iO 

e-:>ccr. .  in  [1 } 

ine 

i  i 

e->rcr. .  ir.  [  c  J 

ine 

va 

e->con . state ( 0] 

ine 

va 

cld  e->con.cld  state [0] 

ine 

F. 

e->cor, .  pa  ram  [  0] 
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♦define  II  e ->con . impl icit [ 0] 

♦  define  ir._a  e->con . ext_in [ 0] 

♦  define  out_a  e->con . ext_out [ 0 ) 

dev  a  (e , dt ) 

ELEMENT  *e; 
double  dt; 

/’  the  code  should  be  located  here  */ 

\ 

The  define  directives  are  optional  but  their  use  greatly  eases  the  readability  of  the 
program.  The  ELEMENT  structure  along  with  the  CONNECT  structure  are  defined  in 
doerry.h. 


Figure  B.l-2  ELEMENT  and  CONNECT  structures 


extracted  from  doerry.h  */ 

*  These  are  the  external  input  and  external  output  types  used 
in  the  type_e::t_in  and  type  ext  out  arrays  of  the  Connect 
structure.  These  types  are  presently  unimplemerited  in  SEPSIP 

,/ 

♦define  BOOLEAN  0 
♦define  SWITCH  1 
♦define  INTEGER  2 
♦define  FLOAT  3 


/*  The  CONNECT  structure  holds  arrays  of  variables  associated 
with  each  element  */ 


typedef  struct  Connect 
< 


int  nbr 

_inputs; 

/* 

int  nbr 

states ; 

/* 

int  nbr 

implicit : 

/* 

int  nbr 

_ext_in; 

/* 

int  nbr 

ext  out; 

/* 

int  nfcr_param; 

/* 

double 

♦in; 

/* 

double 

♦state; 

/* 

double 

♦old  state; 

/♦ 

ac  uble 

♦implicit; 

/* 

double 

♦ext  in; 

/* 

double 

♦ext  out; 

/* 

double 

♦param; 

/* 

double 

♦init  state; 

/* 

double 

♦init  ext  in; 

/* 

double 

♦init  in; 

/* 

double 

♦jacob  in; 

/* 

ir.t  jacob_switch;  /* 

ir.t  *tyt  e_ext_ir. ;  /* 

rr.t  *type_e::t_out;  /» 

ir.t  *imp_index;  /* 

; 

ccni;ect; 


Number  of  input  variables  */ 
Number  of  internal  states  */ 
Number  of  implicit  equations  */ 
Number  of  external  input  variables  */ 
Number  of  external  output  variables  */ 
Number  of  parameters  */ 
pointer  to  array  of  input  variables  */ 
pointer  to  array  of  state  variables  */ 


pointer  to  array  of  old  state  variables  */ 
pointer  to  array  of  implicit  variables  */ 
pointer  to  array  of  external  input 
variables  */ 

pointer  to  array  of  external  output 
variables  */ 

pointer  to  array  of  parameters  */ 

pointer  to  array  of  initial  values  for 
state  variables  */ 

pointer  to  array  of  initial  values  for 
external  input  variables  */ 
pointer  to  array  of  initial  values  for 
input  variables  */ 

pointer  to  Jacobian  matrix  of  implicit 
variables  with  respect  to  input 
variables  */ 

=  1  if  Jacobian  calculated  by  function 
«=  0  if  Jacobian  calculated  externally 
pointer  to  array  cf  external  input  types  */ 
pointer  to  array  of  external  output  types*/ 
pointer  to  array  of  indexes  for  itab 
array  */ 
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tvpedef  struct  Element 

{' 

int  serial;  /*  serial  number  of  element  (unused)  */ 

char  ‘name;  /*  pointer  to  name  of  element  */ 

struct  Connect  con;  /*  Connect  structure  */ 

struct  Device  ‘device;  /*  Pointer  to  DEVICE  structure  which  contains 

the  names  of  all  the  variables  along  with 
the  starting  address  of  the  device  routine 

*  / 

int  flag;  /*  =  1  if  element  is  used  in  the  network 

“  0  if  element  is  not  used  in  the  network  */ 

} 

ELEMENT; 

B.1.2  Select  number  and  types  of  variables 

One  of  the  first  choices  one  must  make  when  writing  a  device  driver  is  the  number  of 
each  type  of  variable.  SEPSIP  allocates  only  enough  memory  for  each  array  to  hold  the 
number  of  variables  specified  in  the  Device  Input  File  (see  section  B.2).  The  size  of  the 
allocated  arrays  are  specified  by  the  nbr_*  variables  in  the  CONNECT  structure.  Changing 
the  nbr_*  values  will  not  reallocate  the  arrays  and  therefore  should  not  be  done. 

Using  the  define  directive  as  discussed  in  the  previous  section  is  a  good  way  of 
assigning  understandable  labels  to  the  memebers  of  the  variable  arrays.  It  is  also  a  good 
idea  to  use  the  same  name  with  both  the  define  statement  and  the  Device  Input  File  (Section 
B.2). 

B.1.3  Calculate  Implicit  variables 

The  heart  of  the  device  driver  routine  is  the  calculation  of  the  implict  variables.  The 
calculations  can  involve  any  of  the  variables  contained  in  the  ELEMENT  structure  and  the 
time  incremnt  dt.  Generally,  one  should  always  check  and  write  appropriate  code  for  divide 
by  zero  situations. 

B.I.4  Calculate  State  Variables 


The  state  variables  that  are  specified  in  the  current  time  step  are  moved  to  the  old_state 
variable  array  once  the  system  is  balanced.  In  this  manner,  one  can  store  information  that 

will  be  required  in  the  following  time  increment. 
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B.1.5  Calculate  External  Output  Variables  (optional) 


External  Output  variables  allow  the  generation  of  variables  that  are  not  directly  used 
in  calculations  but  may  be  of  interest  to  the  user  in  monitoring  the  simulation.  The  original 
concept  for  SEPSIP  was  to  be  able  to  specify  the  external  output  variable  to  be  one  of  four 
types,  but  presently  only  the  FLOAT  type  is  implemented.  The  typing  refers  only  to  the 
manner  in  which  the  variables  are  displayed  and  not  to  the  way  in  which  they  are  stored. 
B.1.6  Calculate  Jacobian  Matrix  (optional) 

Calculating  the  Jacobian  matrix  within  the  device  driver  routine  can  greatly  increase 
the  speed  of  the  simulations.  The  variable  e->con.jacob_switch  is  used  to  indicate  whether 
or  not  the  Jacobian  is  calculated,  if  e->con.jacob_switch  is  zero,  the  Jacobian  is  not  cal¬ 
culated  by  the  routine.  Otherwise,  the  Jacobian  is  calculated  by  the  driver  routine. 

Each  element  of  the  Jacobian  array  is  the  partial  derivative  of  an  implicit  variable  with 
respect  to  one  of  the  input  variables.  e->con.jacob_in[i  +  N  *  j]  refers  to  the  partial  of 
e->con.implicit[i]  with  respect  to  e->con.in(J]  where  N  =  e->con.nbr_impIicit  is  the  total 
number  of  implicit  variables. 

B.2  Modify  Device  Input  File  (three_phase.input) 

SEPSIP  uses  in  input  file  to  determine  how  many  variables  of  each  type  should  be 
allocated  and  the  names  of  those  variables.  Each  device  must  have  an  entry  of  the  form 
shown  in  figure  B.2-1.  Appendix  C  includes  two  examples  of  input  files. 

Figure  B.2-1  Device  Input  File  Entry 

NAME  device  name 
INPUTS  3 

input_name  1 
input_name_2 
input  name  3 
STATES  2 

state_name_l 

state_name_2 

TMP^JT  T'J*  ^ 

irr.clirit  r.am~  1 
inplicit_name_2 
EXTERNAL  IN  3 

float  e>:t_in_l 
switch  e:-:t_in_2 
inteoer  e:-:t_iri_3 
EXTERNAL  OUT  2 

float  ext  out  1 
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float  e::t_out_2 
PARAMETERS  2 
param_name_l 
param_name_2 
END 

The  number  following  the  variable  type  indicates  how  many  variables  of  that  type  are 


listed. 


For  the  external  input  and  external  output  variables,  a  type  indicator  must  be  specified 
before  the  name  of  the  variable.  Legal  types  are  BOOLEAN,  SWITCH,  INTEGER,  and 
FLOAT.  In  the  present  version  of  SEPSIP,  this  indicator  is  ignored. 

The  variable  names  should  all  be  unique  within  a  device  description.  This  means  that 
one  should  not  give  an  implicit  variable  the  same  name  as  an  input  variable.  Some  reuse  of 
variable  names  is  possible,  but  doing  so  can  lead  to  much  confusion. 

B.3  Modify  penner.h 

The  penner.h  include  file  has  two  purposes.  The  first  is  to  specify  the  names  of  the 
device  input  files  and  the  number  of  devices  described  in  these  files.  The  second  purpose  is 
to  associate  device  names  with  the  device  driver  routines.  Appendix  C  contains  the  current 
version  of  penner.h.  Figure  B.3-1  shows  a  simplified  version  of  penner.h 

Figure  B.3-1  penner.h  example 

/*  penner.h  */ 

typedef  int  (*FUNCTION_PTR)  <); 

#define  NBR_DEV_FILES  2  /*  number  of  device  input  files  */ 

/'*  specify  the  names  and  paths  of  the  d<  / ice  input  files  */ 

static  char  *device_f ile [ ]  « 

{ 

" /mit./ 13 . 4 11  /  sepsip/ three_phase  .  input"  , 

"/mit/13 .411/ sepsip/orie_phase  .  input" 

} ; 

/*  specify  the  number  of  devices  described  in  each  of  the 
above  files  */ 

static  int  nbr_device_f ile [ ]  = 

{ 


/*  specify  the  names  of  the  devices  as  declared  in  the 
the  device  input  files  */ 


-  161  - 


static  char  * d«vice_name [ ]  “ 

( 

"t_iine_3p" , 

"ri_wye" , 

"g«,n_synch  3p", 

"switch” 

) 

/ *  specify  the  device  driver  routine  corresponding  to  each  of 
the  above  named  devices  */ 

♦define  FO  t  line_3p 
♦  define  Fi  rT_vye 
♦define  F2  gen_synch_3p 
♦define  F3  spst_switch 

/*  declare  functions  */ 


int  FO  ( ) ; 
int  FI  () ; 
int  F2  () ; 
int  F3  (); 

/*  declare  function  pointer  array  */ 

static  FUHCTION_PTR  dev_fnctn[]  = 

{ 

FO, 

FI, 

F2, 

F3 


The  order  of  the  device  names  in  the  device_name  array  should  be  the  same  as  the 
order  of  the  corresponding  device  driver  routines  in  the  dev_fnctn  array. 

B.4  Modify  Makefile 


Most  computer  systems  include  a  Make  utility  for  assisting  in  the  management  of 
software  projects.  The  Make  utiltity  operates  on  a  data  file  which  in  UNIX  is  usually  named 
Makefile.  The  Makefile  contains  instructions  as  to  which  files  should  be  compiled  and  linked 
in  order  to  create  an  executable  program.  The  Make  utility  uses  these  instructions  to  compile 
only  those  files  that  have  changed  since  the  last  compilation.  If  only  one  file  is  edited,  only 


that  one  file  is  recompiled  and  linked  to  the  other  object  files.  For  this  reason,  Make  can 
considerably  reduce  the  compilation  time  of  a  large  program.  Figure  B.4-1  shows  an  example 


of  a  Makefile. 
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Figure  B.4-1  UNIX  Makefile  Example 


FUNCO-  f_t_line_3p . o  f_rl_wye.o  £_gen_aynch_3p .o  £_spat_switch.o 
OeJE-  ch«ck_name . o  commands . o  dump_data.o  edit_simulat«7o  «lm_jacob.o  \ 
f  ile_cpt,ions .  o  gauss_aliminate  .  o  integ.o  ioliba.o  load_devic« . o  \ 
load_el ament . o  load_initial . o  load_network . o  load  simulation.©  \ 
make_ jacobian . o  print_network .o  read_device . o  r«a3_element . o  \ 
read_network . o  sapsip.o  setup_simulation . o  simulate. o  \ 

dump_data.o 

INCLUDEFILES  =  penner.h  doerry.h 
sepsip:  S(OBJB)  $ (FUNCO) 

cc  -c  sepsip  $  (OBJB)  $  (FUNCO)  -lm 
load_device . o :  $ ( INCLUDEFILES) 

cc  -c  load_device . c 
read_device . o :  $ ( INCLUDEFILES) 

cc  -c  read_device . c 
sepsip. c:  $ (INCLUDEFILES) 

cc  -c  sepsip. c 

cl obber ; 

rm  *  .  o 


B.5  Recompile  SEPSIP 

The  final  step  to  add  a  device  to  SEPSIP  is  to  recompile  the  program.  Using  the  above 
Makefile,  the  recompilation  is  accomplished  in  UNIX  by  entering  the  command  make  -k  at 
a  UNIX  prompt.  For  other  systems,  one  must  read  the  instruction  manual  for  the  system  C 
compiler. 
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/*  f_t_line_3p . c  */ 

/*  Norbert  H.  Doerry 
11  March  1989 

This  routine  simulates  a  3  phase  transmission  line  as  a  series 
combination  of  a  resistance  and  reactance.  The  reactance  also 
has  a  parallel  leakage  resistance 

* 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "dcerry.h" 

♦define  vOa  e->con.in[0] 

♦define  vOb  e->con.in[l] 

♦define  vOc  e->con.in[2] 

♦define  via  e->con.in[3] 

♦define  vlb  e->con.in[4] 

♦define  vie  e->con.in[5] 

♦define  iOa  e->con.in[6] 

♦define  iOb  e->con.in[7] 

♦define  iOc  e->con.in[8] 

♦define  rla  e->con.in[9] 

♦define  ilb  e->con . in [ 10 ] 

♦define  ilc  e->oon . in [ 11 ] 

♦define  va  e->con . state [0 ] 

♦define  vb  e->con . state [ 1 ] 

♦define  vc  e->con . state [2 ] 

♦define  ia  e->con . state [3 ] 

♦define  ib  e->con . state [ 4 ] 

♦define  ic  e->con . state [ 5 ] 

♦define  va_old  e->con . old_state [ 0 ] 

♦  define  vb_old  e->con  .  old__state  [  1  ] 

♦define  vc_old  e->con . old_state [2 ] 

♦define  ia_old  e->con . old_state [3 ] 

♦define  ib_old  e->con . cld_state [ 4 ] 

♦define  ic_oid  e->con . old_state [5 ] 

♦define  R  e->con .param [ 0 ] 

♦define  L  e->con . param [ 1 ] 

♦define  R1  e->con .param [ 2 ] 

♦define  v0a_  0 
♦define  v0b_  1 
♦define  v0c_  2 
♦define  vla_  3 
♦define  vlb  4 
♦define  vlc_  5 
♦define  i0a_  6 
♦define  i01_  7 
♦define  iOc_  £ 

♦define  iia_  9 
♦define  ilb_  10 
♦define  ilc_  11 

t_line_3p (e, dt) 
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ELEMENT  *e; 
double  dt; 

{ 

double  fta , ftb, fto, f ta_old, f tb_old, f tc_old; 
double  ila, ilb, ilc, ila_old, ilb_old,  ilc_old; 
int  i, j; 

/*  initialize  the  jaoobian  matrix  to  zeroes  if  dt  »«  0  */ 

for  (i  ■  0  ;  dt  0.0  &&  i  <  6  ;  i++) 
for  (j  *>  0  ;  j  <  12  ;  j++) 

e->con . jacob_in [ i  +  6  *  j]  =  0.0; 


va 

= 

via  - 

vOa; 

vb 

= 

vlb  - 

vOb; 

vc 

■ 

vie  - 

vOc  ; 

ia 

(ila 

-  10a) 

/ 

o 

CM 

ib 

= 

(ilb 

-  iOb) 

/ 

2.0 

ic 

cr 

(ilc 

-  iOc) 

/ 

2.0 

/*  see  if  the  inductance  is  zero  or  the  leakage  resistance  is  zero*/ 

if  (L  «=  0  ||  R1  --  0) 

( 

/*  pure  resistance  */ 

e->con . implicit [ 0]  =  va  -  ia  *  R; 

e->con . implicit [ 1 ]  =  vb  -  ib  *  R; 

e->con . implicit [ 2 ]  =  vc  -  ic  *  R; 


e->con . jacob_in [ 0 

+ 

6 

A 

v0a_] 

tx 

-1.0; 

e->con . jacob_in [ 0 

+ 

6 

★ 

vla_] 

BS 

1.0; 

e->con . jacob_in [ 0 

+ 

6 

* 

i0a_] 

IS 

R  /  2.0; 

e->con.jacob  in[0 

+ 

6 

A 

il  a_] 

IS 

-R  /  2.0; 

e->cori .  jacob  in  [  1 

+ 

6 

A 

vOb  ] 

= 

1 

»-* 

o 

e->con.jacob  in ( 1 

+ 

6 

A 

vlb_] 

3= 

1.0; 

e->con. jacob  in ( 1 

+ 

6 

A 

i0b_] 

IS 

R  /  2.0; 

e->con. jacob  in [ 1 

4* 

6 

A 

ilb_] 

XX 

-R  /  2.0; 

e->con. jacob  in[2 

6 

A 

vOc  ] 

= 

-1.0; 

e->con . jacob_in [2 

+ 

6 

A 

vlc_] 

K 

1.0; 

e->con. jacob  in [2 

6 

A 

iOc  ] 

IS 

R  /  2.0; 

e*>csn. jacob  in [2 

+ 

6 

A 

ilc  ] 

= 

-R  /  2.0; 

} 

else 

( 

/*  inductance  present  */ 
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/*  inductor  voltage  divided  by  inductance  */ 

fta  *=  (va  -  R  *  ia)  /  L; 
ftb  =  (vb  -  R  *  ib)  /  L; 
ftc  ■  (vc  -  R  *  ic)  /  L; 

/*  find  inductor  current  */ 

ila  =  ia  -  fta  *  L  /  Rif 
ilb  -  it  -  ftb  *  L  /  Rl; 
ilc  =  ic  -  ftc  *  L  /  Rl; 


/* 

find 

old  values 

*/ 

fta 

old 

«, 

(va_old 

-  R 

*  ia_ 

_old) 

/  L; 

ftb 

_ola 

ac 

(vb_old 

-  R 

*  ib_ 

_old) 

/  L; 

ftc 

old 

s= 

(vc  old 

-  R 

*  ic_ 

_old) 

/  L; 

ila 

old 

= 

ia_old  - 

fta 

_old 

*  L 

/  Rl; 

ilb 

_old 

3= 

ib  old  - 

ftb 

_old 

*  L 

/  Rl; 

ilc 

old 

St 

ic  old  - 

ftc 

old 

*  L 

/  Rl; 

/*  calculate  implicit  variables  using  trapezoidal  integeration  */ 

e->con . implicit [ 0]  ■>  integ (ila, ila_old, fta, fta_old, dt) ; 
e->con . implicit [ 1]  «  integ (ilb, ilb_old, ftb, ftb_old,  dt) ; 
e->con . implicit [2]  «  integ (ilc, ilc  old, ftc, ftc  old,dt); 


/*  calculate  Jacobian 

Matrix 

*/ 

e->con . jacob_in [ 0 

+ 

6 

★ 

v0a_] 

= 

e->con.jacob  in[0 

+ 

6 

★ 

vla_] 

* 

e->con . jacob_in [ 0 

+ 

6 

★ 

i0a_] 

■ 

e->con.jacob  in[0 

+ 

6 

★ 

ila_] 

= 

e->con.jacot  in [ 1 

+ 

6 

* 

vObJ 

= 

e->con . jacofc  in [ 1 

+ 

6 

* 

vlb_] 

ss; 

e->con . jacob_in [ 1 

+ 

6 

★ 

i0b_] 

a 

e->con.jacob  in[l 

+ 

6 

★ 

ilb_] 

= 

e->con . jacob_in [ 2 

+ 

6 

★ 

v0c_] 

m 

e->con.jacob  in [2 

+ 

6 

* 

vlc_] 

m 

e->con.jacob  in [2 

+ 

6 

* 

i0c_] 

SB 

e->con.jacob  in [2 

+ 

6 

* 

ilc  ] 

= 

-  1.0  /  Rl  -  dt  /  (2.0  *  L ) ; 

-  e->con. jacob_in [0  +  6  *  v0a_) ; 

-  (1.0  +  R  /  Rl  + 

(dt  *  R)  /  (2.0  *  L))  /  2.0; 

-  e->con. jacob_in [0  +  6  *  v0a_] ; 

-  1.0  /  Rl  -  dt  /  (2.0  *  L) ; 

-  e->con . jacob_in [ 1  +  6  *  v0b_] ; 

-  (1.0  +  R  /  Rl  + 

(dt  *  R)  /  (2 .0  *  L) )  /  2 .0; 

-  e->con . jacob_in [ 1  +  6  *  v0b_] ; 

-  1.0  /  Rl  -  dt  /  (2.0  *  L)  ; 

-  e->con . jacob_in [2  +  6  *  v0c_] ; 

-  (1 .0  +  R  /  Rl  + 

(dt  *  R)  /  (2.0  *  L))  /  2.0; 

-  e->con . jacob_in [2  +  6  *  v0c_] ; 


/*  current  sums  are  the  following  three  implicit  equations  */ 


e->con . implicit [ 3 ]  *  iOa  +  ila; 
e->con . implicit [ 4 ]  =  iOb  +  ilb; 
e->con . implicit [5]  *  iOc  +  ilc; 
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e->con .  jacofc_in  (3  +  6  *  iOa_]  ••  1.0; 

e->eon . jacob_in [ 3  +  6  *  ila  ]  “  1.0; 

e->con . jacob_in [ 4  +  6  *  iOb_J  *  1.0; 

e->con . jacob_in [ 4  +  6  *  ilb_]  ■>  1.0; 

e->con . jacob_in [ 5  +  6  *  iOc_]  ■  1.0; 

e->con . jacob_in [ 5  +  €  *  ilc_]  ■  1.0; 

/*  turn  the  jacob  switch  on  */ 

e->con . jacob_switch  “  1; 

/*  store  external  output  variables  */ 

for  (  i  «=  0  ;  i  <  6  ;  i++) 

e->con  .  ext_out  [  i  ]  «=  e->con . state  ( i ] ; 
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f_rl_wy*> .  <r 


*  f_r i_wye .  c 

Norbert  H  Doerry 

12  March  1898 

This  file  simulates  a  three  phase  rl  load  connected  in  a  wye  fashion. 

The  center  point,  or  ground,  can  be  connected  to  a  reference  current 
subnode  if  it  is  desired  tc  leave  the  line  floating.  The  neutral 
voltage  can  alternately  be  set  to  a  specific  value  by  using  a  reference 
voltage  subnode . 


♦  include  <stdi.c.h> 
♦include  <math.h> 
♦include  "doerry.h" 


♦define 

vOa 

e->con . in ( 0  j 

♦  define 

vOb 

e->con .inti] 

♦define 

vOc 

e->con.in[2] 

♦define 

vOn 

e->con . in [3] 

♦define 

iOa 

e->con . in [ 4 ] 

♦define 

iOb 

«*>con . in [ 5] 

♦define 

iOc 

e->con . in [ 6] 

♦define 

iOn 

e->con . in [7] 

♦define 

va 

«->con. state [0] 

♦define 

vb 

e->con . state [ 1 ] 

♦define 

VC 

«->con. state [2] 

♦define 

ia 

e->con. state [3] 

♦define 

ib 

e->con . state [4 ] 

♦define 

ic 

e->con . state [ 5 ] 

♦define 

va  o 

Id  e->con.old  state [0] 

♦aef ine 

vb_o 

Id  e->con.old  state  [1] 

♦define 

vc_old  e->con . old_state [2 ] 

♦define 

ia  old  e->con.cld  state [3] 

♦define 

ib  old  e->con.old  state [4] 

♦define 

ic_cid  e->con . old_state [ 5 J 

♦define 

vOa 

0 

♦define 

vOb 

1 

♦define 

vOc 

2 

♦define 

vOn 

3 

♦define 

iOa 

4 

♦define 

iOb_ 

5 

♦define 

iOc 

6 

♦define 

iOr, 

“7 

♦define  R  e ->con . param [ 0 ] 
♦define  L  e ->con . param [ 1 ] 
♦  define  Rl  e---'Ccn.paira:r.[21 

r l_wye (e , dt ) 

ELEMENT  ’e; 
double  dt; 

( 

int  i,  j  ; 
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double  ft.*,  ftb,  ftc,  fta_old,  ftb_old,  ftc_old; 
double  il*,ilb,ilc; 
double  Re; 

/*  initialize  the  jacobian  matrix  to  zeroes  */ 

for  (i  «*  0  ;  dt  «•  0,0  IS  i  <  <  ;  i++) 
for  (j  «  0  ;  j  <  6  ;  j++) 

e->cor. .  jacob_in  [  i  +  4  *  j]  *  0.0; 

/*  calculate  states 

ila  “  iOn  +  iOb  +  iOc; 

ilb  ■  iOn  +  iOc  +  iOa; 

ilc  ■  iOn  +  iOa  +  iOb; 

va  ■  vOa  -  vOn; 

vb  «  vOb  -  vOn; 

vc  ■  vOc  -  vOn; 

ia  -  (iOa  -  ila)  /  2.0; 

ib  -  (iOb  -  ilb)  /  2.0; 

ic  -  (iOc  -  ilc)  /  2.0; 

/*  sum  of  currents  should  be  zero  */ 

e->con . implicit [3]  ■  iOa  +  iOb  +  iOc  +  iOn; 

e->ccri .  jacob_in  [  3  +  4  *  iOa_]  -  1.0; 

e->con . jacob_in [3  +  4  *  iOb_]  ■  1.0; 

e->con. jacob  in (3  +  4  *  iOc  ]  «  1.0; 

e->con .  jacob_j.n  ( 3  +  4  *  iOn_]  »  1.0; 

/’  see  if  inductance  is  neglible  */ 

if  <L  ==  0  I |  Rl  ««  0) 

i 

pure  resistance  */ 

Re  =  (P.1  «  0  |  |  R  ==  0)  ?  0.0  :  Rl  *  R  /  (Rl  +  R) 

e->ccn . implicit [ 0]  *  va  -  ia  *  Re; 

e->con . implicit [ 1 ]  =  vb  -  ib  *  Re; 

e->con. implicit (2]  «  vc  -  ic  *  Re; 

if  (dt  ==  0) 


e->cor. .  jacob 

_ir,  [  0 

4- 

4 

★ 

vOaJ 

e 

1.0; 

e ->c or. .  jacob_ 

in  [  0 

•f 

4 

* 

vOri 

as 

1 

»-* 

o 

e->cori .  jacob 

in  [0 

+ 

4 

* 

iOa  ' 

as 

-Re  / 

2.0; 

e->con . jacob 

in  ( 0 

+ 

4 

* 

iOb_] 

* 

Re  / 

2.0; 

e->cor,  .  jacob 

in  [  0 

+ 

4 

* 

iOc  ' 

= 

Re  / 

2.0; 

e->con . jacob 

in  [  0 

+ 

4 

★ 

iOn_] 

3b 

Re  / 

2.0; 
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«->con . jacob_in ( 1 

+ 

4 

* 

v0b_] 

1.0; 

e->con . jacob_in [ 1 

+ 

4 

* 

vOn_] 

-1.0; 

e->con . jacob_in ( 1 

+ 

4 

i0b_] 

-Re  / 

2.0; 

e->con . jacob_in [ 1 

+ 

4 

* 

iOcJ 

Re  / 

2.0; 

e->con . jacob_in [ 1 

+ 

4 

* 

iOa_j 

Re  / 

2.0; 

e->con . jacob_in ( 1 

+ 

4 

* 

iOn_] 

Re  / 

2.0; 

e->con. jacob  in (2 

+ 

4 

Hr 

vOc_] 

1.0; 

e->con . jacob_in [ 2 

+ 

4 

Hr 

vOn_] 

-1.0; 

e->con . jacob_in (2 

+ 

4 

Hr 

iOc_} 

-Re  / 

2.0; 

e->con . jacob_in (2 

+ 

4 

Hr 

i0a_3 

Re  / 

2.0; 

e->con . jacob_in  1 2 

•f 

4 

Hr 

iOb_] 

Re  / 

2.0; 

e->con . jacob_in [2 

+ 

4 

Hr 

iOn_] 

Re  / 

2.0; 

) 

} 

else 

{ 

/*  inductance  present  */ 

e->con . implicit ( 0]  *  ia  -  ia_old  -  (dt  /  L)  * 

(  (va  +  va_old)  /  2.0  -  R  *  ia_old)  -  (va  -  va_old)  /  Rl; 
e->con . implicit [ 1]  ■  ib  -  ib_old  -  (dt  /  L)  * 

(  <vb  +  vb_old)  /  2.0  -  R  *  ib_old)  -  (vb  -  vb_old)  /  Rl; 
e->con .implicit [2]  -  ic  -  ic_old  -  (dt  /  L)  * 

(  (vc  +  vc_old)  /  2.0  -  R  *  ic_old)  -  (vc  -  vc_old)  /  Rl; 

e->con . jacob_in [0  +  4  *  v0a_]  »  -  dt  /  (2.0  *  L)  -1.0/  Rl; 
e->con. jacob_in[0  +  4  *  v0n_3  “  “  e->con . jacob_in [0  +  4  *  v0a_] ; 

e->con  .  jacob_in  [  0  +  4  *  i0a_]  «=  0.5; 

e->con . jacob_in [ 0  +  4  *  i0b_]  -  -  e->con. jacob_in [0  +  4  *  i0a_] ; 

e->con . jacob_in [ 0  +  4  *  i0c_]  ■*  -  *->con . jacob_in [ 0  4  4  *  i0a_] ; 

e->con . jacob_in [ 0  4  4  *  i0n_]  «  -  e->con . jacob_in [ 0  4  4  *  i0a_] ; 

e->con .  jacob_in  ( 1  4  4  *  vObJ  =  -  dt  /  (2.0  *  L)  -1.0  /  Rl; 
e->con . jacob_in [ 1  4  4  *  v0n_]  «  -  e->con . jacob_in [ 1  4  4  *  vOb  ]; 

e->con . jacob_in [ 1  4  4  *  iOb_]  =  0.5; 

e->con . jacob_in i 1  4  4  *  iOc_]  =  -  e->con . jacob_in [ 1  4  4  *  iOb_]; 

e->con . jacob_in [ 1  4  4  *  i0a_3  ■=  -  e->con  .  jacob_in  [  1  4  4  *  iOb_] ; 

e->con . jacob_in [ 1  4  4  *  iOn_]  =  -  e->con . jacob_in [ 1  4  4  *  iOb  ]; 

e->con .  jacob_in  [2  4  4  *  v0c__]  =  -  dt  /  (2.0  *  L)  -1.0  /  Rl; 
e->con . jacob_in [2  4  4  *  vOn_]  =  -  «->oon . jacob_in [2  4  4  *  vOc_3 ; 

e->con . jacob_in [ 2  4  4  *  iOc_]  =  0.5; 

e->con . jacob_in [ 2  4  4  *  i0a_]  =  -  e->con . jacob_in [2  4  4  *  iOc  ]; 

e->con . jacob_in [2  4  4  *  i0b_]  =  -  e->con . jacob_in [ 2  4  4  *  i0c_] ; 

e->con . jacob_in (2  4  4  *  i0n_]  =  -  e->con . jacob_in [2  4  4  *  i0c_] ; 


/*  turn  the  jacob  switch  on  */ 

e->con . jacob_switch  «  1; 

!*  e->con . jacob_switch  =  0;  */ 
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f  r 1  wye .  ; 


store  external  output  variables  */ 

for  (  i  »  0  ;  i  <  6  ;  i++) 

e->con  ,«i:t_out  [i  ]  «  e->con.  state  [i]  ; 
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C.3  f_synch_mach.c 


-  175  - 


f  synch_mach . c 


'*  f_synch_mach . c  V 
Norbert  H.  Docrry 

20  April  1989 

This  file  contains  tha  driver  routine  for  simulating  a  generic 
synchronous  machine  as  modelled  in: 

Synchronous  Machine  Dynamic  Models 

J.  L.  Kirtlay  Jr. 

LEES  Technical  Report  TR-87-008 

June  5,  1987. 

****  Modified  29  april  ****** 

Changed  to  use  modified  trapezoidal  integration  -nhd 

*/ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry.h" 

/*  terminal  voltages  and  currents  */ 

♦define  vOa  e->con . in [0] 

♦define  vOb  e->con.in(l] 

♦define  vOc  e->con.in(2] 

♦define  vOn  e->con.in[3] 

♦define  iOa  e->con.in[4] 

♦define  iOb  e->con.in[5] 

♦define  iOc  e->con.in[6] 

.'*  field  voltages  and  currents  */ 

♦define  vOf  e->con.in[7] 

♦define  vlf  e->con.in[8] 

♦define  iOf  e->con.in[9] 

♦define  ilf  e->con . in [ 10 ] 

/*  rotational  properties  */ 

/*  Theta  is  eleccrical  radians,  wm  and  wm_dot  a.te  mechanical  */ 

♦define  theta  e->con . in [ 11 ] 

♦define  wm  e->con . in [ 12 ] 

♦  define  wrr._dt  e->con  .  in  [  13  ] 

f *  sum  of  rotational  inertia  and  electrical  torque  */ 

ir  Loads  are  a  negative  Te,  prime  movers  provide  a  positive  Te  */ 

♦define  Te  e->con . in [ 14 ] 
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f_synch_mach . c 


/*  internal  variable  * / 

♦define  Pii  q  e->oon . in ( 15 ] 
♦define  Psi_d  e->con . in [ 16 ] 


/*  define  offsets  */ 


♦define  vOa_ 

0 

♦define  vOt 

1 

♦define  vOc 

2 

♦define  vOn 

3 

♦define  iOa 

4 

♦define  iOb 

5 

♦define  iOc_ 

6 

♦define  vOf_ 

7 

♦define  vlf 

8 

♦define  iOf 

9 

♦define  ilf 

10 

♦define  Theta 

11 

♦define  wm 

12 

♦define  wm  dt 

13 

♦define  Te 

14 

/*  define  parameters  */ 

♦define  xd 

e->con.param[0] 

♦define  xq 

e~>con.param[l] 

♦define  xd_p 

e->con.param[2] 

♦define  xd_pp 

e ->con . param [ 3 ] 

♦define  xq_pp 

e->con.param[4] 

♦define  xal 

e->con.param[5] 

♦define  Tdc_p 

e->con .param [6] 

♦define  Tdo_pp 

e->con.param[7] 

♦deftne  Tqo_pp 

e->con.param[8] 

♦define  Tad 

e->oon. param ( 9] 

♦define  Ifni 

e->con.param;10] 

♦define  H 

e->con. param [ 11 ] 

♦define  pp 

e->con .param [ 12 ] 

♦define  wbs 

e->con . param [ 13 ] 

♦define  Vdfc 

e->con. param [ 14 ] 

♦define  Pfcs 

e->con . param (15] 

/*  define  states  */ 


♦define 

s_theta 

e->con. state [0] 

♦define 

S  V.TT. 

e->con . state [ 1 ] 

♦define 

s  wm  dt 

e->con . state [2 ] 

♦define 

psi  d 

e->con. state  [3] 

♦define 

Psi_q 

e->c on. state [4] 

♦define 

eq_p 

e->con. state [5] 

♦define 

eq_pp 

e->con. state [6] 

♦define 

ed_pp 

e->con. state [7] 
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*  as.aura  theta  is  in  ranflo 

while  (theta  >  TW?F I )  that*  -«  TWOPI; 
while  (that*  v  -TWOFX)  that*  +■  TWOP  X  i 


CCS*.. 

cos  ( t  hat  a  1 

'-»U' 

b 

oci(th«t»  * 

f 

3)  ,* 

*> 

cca ( that  a  - 

pi;_ 

,3)  > 

sint. 

- 

s in ( theta ) ; 

8  i  r.t  t 

■ 

sir.  (that*  » 

p:;_ 

3)  ) 

sir>  l  n 

t» 

ail. (that*  - 

pi; 

3! ; 

*  calculate  PPM  *  / 

Ft'  M  »wn.  *  tC'.C  TWDFJ; 


■  usii.j  ti.e  ahia.diri?  constraint  mode* 
*  calculate  Ui«  quantities  • 


.  t  i  wb  a  “  -  V>  wb  s  “  TK  .'I  X  * 
'f  i\'dj  "»  f't  Vdb  »  1,0; 


-  I’M* 


60  ,  U; 


f  ryncl.  I’.ech .  c 


if  (Pb#  «■  0)  Fbe  «  1.0/ 
if  ( PJT  «.■  0)  Pf.  »  1,0/ 

Idb  "  Pb»  *  C2_J  /  Vdb / 

Iffc  «  Ifni  •  c:d  -  /ml)/ 

if  «ifB  —  0)  :r*  »  i.o/ 

Vi  is  «  ibf  :f&; 

Ti  s  *  f|.  '  rut  wtf : 

.  *  calouiete  tn»  Fheee  voltages 

v*  »  vO*  -  vOn/ 
vb  »  vOb  ~  vOn / 
ve  •>  vC;  »  vOr.  / 

'•  ceisulat*  instantaneous  power  */ 
i  •  ■  v*  •  lOa  f  vt  »  iOt  +  vc  *  iOc/ 

,  *  do  the  Perk#  transformation  for  both  the  current  end  voltage#  */ 


id 

- 

c:_ 

3 

* 

(coet 

*  iOe  ♦  ooatm  *  j.Ob 

+  cnetp  *  iOc) 

/  IdB/ 

iq 

c;_ 

3 

• 

(eint 

*  iOe  +  ej.ntro  *  iOb 

♦  eintp  *  iOc) 

/  IdB/ 

id 

•i 

C2_ 

3 

• 

(  IOe 

/  2.0  +  idb  /  2.0 

+  iOc  /  2.0  ) 

/  IdB  / 

vd 

m 

C2_ 

3 

* 

(cost 

*  ve  +  coetm  *  vb  + 

OOBtp  *  VO)  / 

Vdb/ 

vq 

m  - 

c;_ 

3 

• 

loint 

*  ve  +  eintm  •  vb  ■* 

eintp  *  vo)  / 

Vdb/ 

VC 

m 

c 

3 

• 

(  ve  / 

2.0  +  vb  /  2.0  + 

vo  /  2.0  )  / 

Vdb; 

*  convert  the  field  veriebl.ee  to  per  unit  * / 


ifd  x  HU  -  iOi )  (2 .  (•  •  ItB)  / 

vfd  -  (vlf  -  vOf )  /  VfE ; 

Teq  ■  <xd_pp  !«  C,0)  ?  Ted  *  xq_pp  /  xd_pp>  :  Ted / 

,  *  ensure  xd_pp  end  xqjpp  ere  non  zero  */ 

:t  (xd_pp  <■  0.0)  xd_pp  “  .01; 
li  (Xq_pp  *>  0.0)  xq_pp  "  .01/ 

,'*  celculete  peremetere  */ 

::f  -  (xd  !«  xd_p)  ?  (xd  *  xei)  *  (Xd  -  xel)  /  (xd  -  xd_p)  1  1000.0 

it  -  (Tdc_p  0.0)  ?  xf  /  (wb»  *  Tdo_p)  I  1000.0/ 

::e-;  »  :;d  -  ;:el  / 

:.kd  »  ixd  *  ;:a  j.p  )  1  :.»d  •  ;;»d  .  (xd  -  xdpp)  t  1000.0; 

alp). a  “  (xd_f  !  “  xd  pp)  ?  (xd  -  xd_pp!  /  (xd_p  •  xd_pp)  l  1000.0; 

*  ceinulete  veiieiie#  * 


V  xed  *  vfd  .  r f  t  1000,0/ 


IfO  - 


ear  »  (rf  1  »  t.C) 


f__*ynoh_maoh .  ~ 


edjpp  »  ;:q_pp  *  iq  -  F«i_q; 

•  qj-f  ■  F*l__d  ”  Xd_pp  *  id; 

•  q_p  -  (;;£  !■  0.0)  ?  (xad  *  (:;£  -  xkd)  *  ifd  4  xkd  *  tq_pp)  /  xf  i 

xad  *  ifd; 
p*i_d  ■  Pai_d; 
pri^q  «  P»i_q; 

*  calculate  derivative#  * 


0.0/ 

d  psi  q  ■ 
0.0; 

CL*'VJPP  ■ 


d  ed  pp  ■ 

d  eqj:>  * 
(-alpha 


(Tad  ! »-  0;  ?  (  eq_pp  •  p»i_d)  /  Tad  -t  wm  *  pp  *  pai_q  +  wb*  *  vd  i 

(Taq  !«  0)  ?  (-psi_q  -  adjpp)  /  Taq  -  wm  *  pp  *  pai_d  4  wba  *  vq  i 

(Tdc_pp  l»  0)  ?  (-  xd_p  *  eq_pp  /  xd_pp  + 

*q_p  +  (xd__p  -  xdjpp)  *  pai_d  /  xdjpp)  t  Tdo^pp  i  0.0; 

(Tqej?p  ! *  0 )  ?  (-  xq  *  adjpp  /  xq_pp  - 

(xq  -  xqjpp)  *  p«i_q  /'  xqjpp)  /  Tqo__pp  i  0.0; 

(Td<j_p  !-  0)  ? 

*  eqjp  +  (alpha  -  1.0)  *  eg  pp  4  aaf)  /  Tdojp  t  0.0; 


calculate  associated  implicit  variablaa  (trapeioidal  integeration!  *; 


/*  changed  april 

to  use 

modified 

trapeioidal  method  */ 

i_psi_d  •*  (Tad  !«  0) 

? 

psi_d  -  p*i_d_old 

-  (dt) 

* 

<o.e 

• 

djpaiji 

4  0.4 

*  d_pai_d_old)  i 

aq^pp  -  pai_d; 

i_pai_q  ■  (Taq  !»  0) 

? 

pai_q  ~  p»i_q_old 

-  (dt) 

* 

(0.6 

* 

d_p*i_q 

4  0.4 

*  d_psi_<^_old)  i 

psi_q  +  ad_pp; 

i_aq_pp  »  (Tdo_pp  !■ 

0)  ? 

eq_pp  -  eqjpp__old 

-  (dt) 

« 

(o.  e 

* 

d_aqjpp 

4  0.4 

*  cL,*q_PP_0Fd)  1 

-  xdjp  *  aq_pp  . 

xd_pp 

•f 

•q_p 

♦ 

(xd_p  - 

xd  _pp) 

*  p»i_d  /  xdjpp 

■  <Tqc_pp  !■- 

0)  ? 

ed_pp  -  ad_pp_old 

-  (dt) 

* 

(0.6 

* 

d_ed_pp 

+  0.4 

*  d_edjpp_old)  i 

-  xq  *  «d_pp  ! 

q„pp  ■ 

(xq  -  Nq_pp)  *  p»i_q  / 

xq_pp; 

i  eqjp  “  (Tdc_p  !  ■» 

0)  ? 

•  q_p  -  eqj:_cld 

-  (dt ) 

* 

(0.6 

• 

d_«q_P 

4  0.4 

*  d_eq_p_cid  )  i 

-alpha  *  e q _ )•  * 

(alalia 

“ 

1  .0) 

* 

•q,j=F  + 

aaf ; 

*  tha  uirc  sequence  currant  should  gc  to  laro  since  aum  of  currents 
must  gc  to  rare  if  ther*  is  no  leakage  to  ground  */ 


is urn  »  ic; 

•  the  sum  of  tha  fiald  ourranta  should  ba  laro  * / 


ifsur  «  (iOf  -t  ilf)  ’  Iffe; 

”  v:  alsc  g:e.i  t;  teic.  since  tha  rare  sequence  current  is  always  aero 
and  therefore  the  *evo  sequence  flux  can  never  build  up  *. 


*  calculate  per  unit  torque  of  electrical  origin  *, 


-  1*1  - 


f  #yn=»._m*ch .  o 

T*pu  «  p»i__d  *  ”  pai_q  *  id;  /*  59  */ 

'•  calculate  the  mechanical  Power  */ 

Pmech  »  Tepu  *  wm  *  Tb»; 
calculate  load  torqu*  */ 

Taco  ■  2,0  *  H  *  pp  •  wm_dt  i  wba; 

The  T a  variable  ia  Nm  of  the  torque  coming  out  of  the  maohine  • / 

Torq  ■  Tacc  -  Tepu  -  Te  /  Tba; 

*  integrate  the  frequency  •/ 

a_th»*te  ■  theta; 

*  V.T-.  »  wm; 

dt  »  wro  dt; 

K  *  a__theta  -  a_theta_old  -  (dt  l  2,0)  *  (a_wm  '  pp  +  a_wm_old  *  pp) ; 

/*  modified  the  trapecoidal  integration  to  weight  the  ’Euler  Backward’ 
contribution,  Thia  prevent!  the  acceleration  from  oacaillating 
ahould  the  frequency  be  held  at  a  oonatant 
*  l 

Wdot  ■  a_wm  -  s_wm_old  -  (dt)  *  (0,$  *  a_wm_dt  +  0.4  *  a_  wm_dt__old)  ; 
turn  jacobian  awitch  off  */ 

e->eon  .  jaocb_awitch  •»  0.0; 
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f_  *pe*d_  i  e  g  .  c 


'  *  f_speed  rag  ,  r  * 

•  Herbert  K.  Doerry 
1‘  April  198  5- 

This  aeviae  describe*  a  prime  mover  controlled  by  «  meohenoiel 
governor  end  attached  to  a  ahaft  that,  he*  windage  loaaca  (b)  . 

The  governor  is  based  on  the  type  found  on  the  SSN-637  class 
submarine  and  described  ir.  i 

R.C.  Dalton 

Turfcina  Generator  Simulation#  for  DD-692  Class  450  KW  Maahine 

and  SSN-637  Class  2000  KW  Maahine,  NAVSSES  Philadelphia  Project  C-267, 

5  March  1994. 

This  particular  model  was  developed  in: 

Norbert  K,  Doerry 

Shipboard  Electrical  Generator  Simulation 
Semester  Project  Report  for  6.238,  MIT 
1"  May  1968 

Modified  1  May  1989 

changed  the  control  from  speed  to  torque 


Input  variables 


«  Primary  Amplifier  Fulcrum  Displacement  (inches)  (0  to  .3) 
»  Torque  on  shaft  (Nm) 

“  Mechanical  speed  (rad/sec) 

F  ar amet e  r  s 


a 

Tm 

wm 


wnlo 

wds 

wdTepu 

TBS 

Tg 

B 


«  374  .  ?2  (rad/sec) 

=»  63. 3P  (rad.'sec-in) 

»  -20.15  (rad/sec ) 

»  Bass  Torque 
•  .3275  (sec) 

“  (Nmsec) 


base  setting  for  speed 
Coefficient  for  s 
Coefficient  for  Tmm  l  TBS 

Regulator  time  constant 
Damping  Coeffient 


External  Output  ”ariatlea 


Tmm 

“  Tcrqu 

*  3ti*V 

i  by  prime  mover 

Kg 

“  (HZ) 

Droof 

frequency 

F  si. aft 

m  pow*r 

at  shaft 

P  ie 1  over 

»  povs«r 

d  « 1  i  v 

’erad  by  the  prime  mover 
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f_rpasd_r*g ,  * 


•includa  ‘.stdic.h' 
♦includa  <r\«th.h> 
♦ineluda  "doarry %h" 

♦dafina  mt 
♦dafina  Tm 
♦dafina  • 

♦dafina  Tm__erdar 
♦dafina  Tmpu 
♦dofxna  Tm_ordar_e.'ld 
♦dafina  Tmpu^ld 

♦dafina  wnlw 
♦dafina  wd» 

♦dafina  wdTapu 
♦dafina  TBS 
♦dafina  T9 
♦dafina  B 

♦dofina  Tmm 
♦dafina  Tm_ 

♦dafina  Pshaft 
♦dafina  Pdalivar 


*->oen. in (0] 

«->o<srt.  in  1 1  ] 
a->con. in (2 ] 

a->con . atata |0] 
a->c^n.»tata|lj 
a->oon . old_atata ! C ] 
a->con.old_»t«ta i 1 ) 

a->eon.paramI 0] 
a->oon.param(l) 
a->aon.param( 2} 
a->oon.param( 3) 
a->con,param( 4 ] 
#*>oon . param [ £ ) 

a->con . axt_out ( 0) 
a->oon .  axt_out  [  1  ] 
a->aon . axt_out [2] 
a->oon.axt_out [3] 


♦dafina  DEC_RAD  57.29578 
♦dafina  RAD_HZ  6.28319 
♦dafina  WBS  377.0 

sp«tad_rag  (a, dt) 

ELEMENT  *a; 
doutla  dt; 

( 


Tmir.  “  Tm  *  E  *  vm; 

if  (TBS  -<■  0)  TBS  -  1.0; 

Tmpu  “  Tmm  /  TBS ; 

if  (wdTapu  !“  01 
( 


!*  find  tha  daairad  torqua  */ 

Tm_ordar  ■  (wrn  -  wnlo  -  was  *  s)  /  wdTapu; 


a->ror. .  implicit  [  0]  « 
dt  *  (Tm  crdar  eld 


(Tmpu  -  Tmpu_cld)  *  Tg  - 
-  .5  *  Tmpu  -  .5  *  Tmpu_cld) 


e->con . jacob_in ( 0] 
a->cor . iacob_in ! 1] 
»->ccn . jacofc  inJ2] 


(B  /  TBS)  *  (Tg  -  dt  *  .5) 
(1.0  /  TBS)  *  (Tg  -  dt  *  .5) 
0.0; 
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?<m.  t.h«  speed  to  the  ordered  apeed  */ 
■rrr. .  imp  » icit  |  ej  •>  (wrr.  -  wnlo  -  wda  *  a 

•  «•  1.0  !  MBS; 

:  r. .  Iftrofc  _  in  ;  1  ’  »  0.0; 

;i -i  -I  *  -  was  KBS; 


aer  <*  Tmpu; 


Tn  _  order; 

.  •  ft  .'it  _swrtod.  '  l.t; 

“  Tit-  *  wi r.j 
«:  *  Tmrr,  *  wrr.; 


)  /  MBS 
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/*  f_volt_reg.c  *  ' 

t*  Norbert.  H.  Dearry 
IS  April  1989 


♦include  <stdic.h> 
♦include  <math.h> 
♦include  "doerry.h" 


♦define  vOa 
♦define  vOfc 
♦define  vOc 
♦define  vOf 
♦define  vlf 
♦define  iOf 
♦define  ilf 


e->con . in [ 0] 
e->con . in  [  1] 
e->con.in [2] 
e->con . in [3] 
e->con . in [ 4 ] 
e->con . in [ 5] 
e->con . in ( 6] 


♦define  Vbs 

♦define  wbs 
♦define  phase 
♦define  vt 


e->con . in ( 7 ] 

e->con . in [ 8] 
e->con . in ( 9] 
e->con  .  in  [  10 ] 


/*  This  is  the  desired  voltage  */ 


♦define 

Vfdbs 

e->con.param[0] 

/* 

♦define 

K 

e->con .param [ 1 ] 

/* 

♦define 

Tvr 

e->con.param[2] 

/* 

♦define 

Vfmax 

e->con .param [ 3 ] 

/* 

♦define 

Vfmin 

e->con .par am [ 4 ] 

/* 

This  is  nominal  field  voltage  */ 

This  is  forward  DC  gain  of  error  */ 

This  if  voltage  regulator  Time  const  */ 
maximum  limit  for  field  voltage  */ 
minimum  limit  for  field  voltage  */ 


♦define  II 
♦define  12 
♦define  Isum 
♦define  Integrate 


e->con . implicit [0] 
e->con . implicit ( 1 ] 
e->con . implicit [2 ] 
e->con . implicit [3  ] 


♦define  Verr 
♦define  Vsig 
♦define  theta 
♦define  clip 


e->con . state [ 0] 
e->con . state  ( 1 ] 
e->con . state [2 ] 
e->con. state [3] 


♦define  Verr_old  e->con . old_state [ 0 ] 
♦define  Vsig_old  e ->con . old_state [ 1 ] 
♦define  theta_old  e->con . old_state [ 2 ] 
♦define  clip_old  e->con . old_state ( 3 ] 

♦define  PI2_3  2.0943951 

^define  TWOFI  €.2821853 


voit_reg (e , dtl 
ELEMENT  »e; 
double  dt; 

{ 
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•dt  tea.; 


d rut le  va, vfc , vc, vn, vsig, vf ; 
double  cost, costm! 

vn  "  (vOa  +  vOb  +  vOc)  /  3.0; 

va  c  vOa  -  vn; 
vfc  «=  vOb  -  vn; 
vc  »  vOc  -  vn; 


t:  tvt  >;  0) 


e  t  e: 

phase  -» 

} 


-1.0; 

FI; 


/*  calculate  phase  */ 

while  (theta_old  >  TWOPI)  theta_old  -*  TWOFI; 
while  (theta_old  <  -TWOFI)  theta_old  +*  TWOPI; 

keep  the  phase  angle  in  a  good  range  */ 

while  (phase  >  TWOPI)  phase  -  =  TWOPI; 
while  (phase  <  -TWOPI)  phase  +■  TWOPI; 

theta  «  thetr _old  +  wbs  *  dt;  /*  euler  backwards  method  */ 

cost  ■*  cos  (theta  +  phase); 

costm  =  cos (theta  -  PI2_3  +  phase); 

11  =  (va  -  vt  *  cost  )  /  Vbs; 

12  =  (vfc  -  vt  *  costm)  /  Vbs; 


Terr  =  1.0  -  vt  /  Vbs; 

Vsig  =  (vlf  -  vOf)  /  Vfdbs  -  1.0; 

if  (clip_old  ==  0) 

{ 

/*  use  a  modified  trapezoidal  integration  scheme  (weight  euler  back) */ 

Integrate  *  Tvr  *  (Vsig  -  Vsig_old)  + 

dt  *  (  .6  *  Vsig  +  .4  *  Vsig_old  -  .6  *  K  *  Verr  -  .4  *  K  *  Verr_old) ; 

vf  =  vlf  -  vOf; 

) 

else  if  (ciip_old  ==  1) 

( 

Integrate  «=  (Vfmax  -  (vlf  -  vOf)  )  /  Vbs; 
vsig  *■  (Tvr  *  Vsig_old  - 
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f_vclt_reg.c 


dt  *  (.4  *  Vsig_old  -  .6  *  K  *  Verr  -  .4  *  K  *  Verr_old) )  / 
<Tvr  +  dt  *  0.6); 

vf  «  (vsig  +  1.0)  *  Vfdbs; 

) 

else 

\ 

Integrate  *  (Vfmin  -  (vlf  -  vOf) )  /  Vbs; 
vsig  =  (Tvr  *  Vsig_old  - 

dt  *  (.4  *  Vsig_oId  -  .6  *  K  *  Verr  -  .4  *  K  *  Verr_old) )  / 
(Tvr  +  dt  *  0.6)  ; 

vf  “  (vsig  4  1.0)  *  Vfdbs; 

) 

Isum  =  iOf  4  ilf; 


/*  update  the  state  */ 

if  (vf  >=  Vfmax)  clip  ■=  1.0; 
else  if  (vf  <=  Vfmin)  clip  «  -1.0; 
else  clip  «=  0.0; 

/*  let  the  system  calculate  the  jacobian  for  now  */ 
e->con . jacofc_switch  *  0.0; 
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f  ind  mater,  o 


'•  f_ind_motor .  c  V 

,'*  Norb*rt  H.  Do*rry 
XI  April  1S>89 


♦include  <*tdie.h> 
♦include  <math.h> 
♦include  "do*rry.h" 


♦d*£in* 

vO* 

*->con . in ( 0] 

♦d*f in* 

vOb 

*->eon . in l 1 ] 

♦def in* 

vOc 

*->con . in [2] 

♦define 

iOa 

*->eon . in | 3 ] 

♦define 

iOb 

*->con ■ in ( 4  ] 

♦define 

iOc 

*->con . in [ 5] 

♦define 

theta 

*->con .  in ( €) 

♦def in* 

wm 

*->con.in  (7} 

#def  ir.o 

wni  dt 

*->con . in [ 8] 

♦define 

vOn 

*->con . in ( 9] 

♦define 

ira 

*->oon  .in [ 10] 

♦define 

irb 

*->con . in [ 11 ] 

♦define 

ire 

«->oon.in[12] 

♦define 

Ila 

e->oon . implicit [0] 

♦define 

lib 

e->con . implicit [ 1 ] 

♦define 

lie 

e->con . implicit [2] 

♦define 

lira 

e->con . implicit [ 3 ] 

♦define 

I  lrb 

e->con . implicit [ 4 ] 

♦define 

lire 

e->con . implicit [5] 

♦define 

Isum 

e->con . implicit ! 6] 

♦define 

W 

e->con . implicit [7] 

♦define 

Wdot 

e->con . implicit [ 8] 

♦define 

Torque 

e->cor. .  implicit  [  9] 

♦define 

Rs 

e->con.param[0] 

♦define 

Xls 

e->con.param[l] 

♦define 

XM 

e->con .par am [2 ] 

♦define 

Xlr_prime 

e->con .par am [3 ] 

♦define 

Rr__prime 

e->con.param[4] 

♦define 

J 

e->con.param[5] 

♦define 

wbs 

e->con.param[6] 

♦define 

PP 

e->con .par am [7] 

♦define 

B 

e->con.param[8] 

♦define 

Tmech 

e->con.ext  in  [  0 

♦define 

lam  sa 

e->con . state [0 ] 

♦define 

lam  sb 

e->con.state[l] 

♦define 

lam  sc 

e->con . state [2] 

♦define 

dlam  sa 

e->con . state [3 ] 
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f:<  md.  (©■»!*»  «  *' 


•def in© 

di  *(*_.»! 

•  def 

d.  ei*-_a© 

•”  *<een .  atate  t  • ) 

•define 

•■s>a@n,etata|*) 

•a«t me 

••'♦een.aietaP) 

14*1 ih* 

ia«i^r<?ji 

e»>uan,*i*ie|i) 

dlen'  re  p 

•  •♦«en,elele|l*J 

•  def in* 

dlair^r^  p 

e->9v>n.atete|ld) 

•define 

diaiv^t 

•" ^een . elate | 11 ) 

* 4»(in* 

theta  # 

•-■‘•©an.  elate  (151 

•  def  in* 

•  ■>aei 

•define 

e->a«n,#%ata|14) 

•define 

Aaft'^aa^eld 

e->qen . @id_»tate |G) 

•define 

iait^afc^eid 

•-!*<?  ©n  , sid^afcate  ( 1 ) 

•define 

lan\_aei^«ld 

e«>nen , eld^atete (2) 

•define 

dlen\_»a^old 

e-!»gen  ,  eldest  ate  ( J ) 

•define 

dien\_#t^i  1  d 

e->gon . ©Id^atete ( 4 ) 

•define 

dlen^es^eld 

e->oen . old  etate j 1 ) 

•  def  me 

leit'_re-_fit  e>ld 

e->aen . old^atate (•) 

•define 

l*m_rb^j;>meld 

•*>aon . eld_a«ate | 7 J 

•define 

lam_r  Id 

e->uon , old^atate (!) 

•define 

dlam_ra_p_old 

••>a«n.6ld_>atate  (•) 

•define 

dleni_rb_p_old 

e->aon.old^atate |10) 

•define 

diem_i’o_p_old 

e->aon .  4»ld_atate  1 1 1 J 

•define 

theta_a_old 

e->oon . old^atate (12) 

•define 

w_._old 

e->oon .  old_atat.e  1 13) 

•define 

w^dot^e^old 

•~>oon . old^atate (14) 

•define 

RPM 

e->oon,*xt_out (0) 

•define 

Te 

e->oon.ext_out (1) 

•define 

Td 

e->gon  .ext._out  (2) 

•define 

T1 

e->con . ext_out | 3 ) 

•define 

WATTS 

e->oon , ext_out |4) 

•define 

HP 

e->oon . ext_out ( 3 ) 

•define 

la 

e->con , ext_out (6) 

•define 

lb 

e->con . ext_out [ 7 ] 

•define 

Ic 

e->con . ext  out  ( 8 ) 

♦define  TWOPI  6.28319 


ind__rnotor  (e,  dt) 

ELEMENT  *e; 
double  dt; 

{ 

int  i,  j; 

double  Lis,  Llr_p,  M,  Jims; 

double  LI 1 ,  L21  ,  L41,  L51,  L61,  L44; 

double  cost, costp, costm; 

Xa  ■  iOa; 
lb  =  iOb; 
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|  I  |t*|  v  4  * 


}■>  •  4 e / 

HfN  «  w*  *  #P,b  W  1 J 

«»***  *  Uh*t*t  ) 

*>**4f  •  ?«»<Vh»4*  *  WQPI  !<&)< 

sa***  *  ©a*  it (1*1*  ■  TV^tf 1  ,  1,0|J 

*  **t  4h«  d*#*uH  b»»*  HF»qn*hOV  4@  *0  MJS  if  #*r©  */ 
if  twb*  •*  bl  wb»  *  TwaM  •  SO.O; 

*  0*ioul*t*  ifidu©t*fl®**  * 

Li*  »  XI*  .*  *b*( 

«U_P  *  Xli_p»lHi*  ¥b*f 

N  •  XN  wb»; 

l*i*  *  }  ,  i>  •  N  )  ,  0 I 

U1  ■  1.1*  -*  Lm*) 

LS  l  »  "  1«»  i  2 . 0  ; 

1.4  4  •  1,1  r_j?  ♦  I***  i 

LSI  *  Lm*  •  ©@*t l 

LSI  »  Lro*  • 

LSI  ■  Lm*  •  cioatm; 

.'•  a*loul*t*  *t*tor  fluN*4  * 

l*n\_»*  -  U1  *  10*  *  LSI  •  10b  ♦  Ul  *  10o  4 
LSI  •  ir*  ♦  LSI  *  lib  4  LSI  •  iro; 

l*ro_*b  »  LSI  •  10*  *  Lll  *  10b  ♦  LSI  •  iOo  4 
LSI  •  ir*  ■*  LSI  •  lib  4  LSI  •  iro; 

i*it\_*c  «  L21  •  iO*  <■  LSI  •  10b  ♦  Lll  *  iOo  4 
L- 1  *  ii*  +  LSI  *  lib  4  LSI  *  ire; 

l*m_i»_j:  ■  LSI  *  iO*  +  L61  ■  iOb  4  LSI  *  10c  4 
LSS  *  ir*  4  LSI  *  irb  4  L21  *  ire; 

l*m_rb_p  ■  LSI  *  10*  4  LSI  *  10b  4  LSI  *  iOo  4 
L21  *  ir*  +  LSS  •  irb  4  L21  «  ire; 

l*m_rc_p  »  LSI  *  iO*  +  LSI  *  iOb  4  LSI  *  iOo  4 
L2.1  •  ir*  +  L21  •  irb  4  LSS  *  ira; 

*  c*lcui*t*  th«  d*riv*tiv*»  cf  th*  *t*tor  flux** 

dl*rr_»*  ■  vO*  -  \>0n  -  IV*  *  iO*; 

dl*m_st  »  vOb  -  vOn  -  P*  *  iOb; 

dl*m  *c  »  vOc  -  vOn  -  P*  *  iOc; 
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t  IH-H  I'l  i' 


»  '•KsjHima  *  i  la! 

41*p  i)  (  *  "Hi^pnrne  •  irb; 
dAan^rf^p  *  "fcr^pum*  •  ire; 

’•  d«  tha  integration*  $t  th*  fiuxaa  •/ 

Ufc  «  lan^aa  "  Aam^aa^old  -  (dt  /  2,0)  *  (dlam_aa  +  dlarr^aa^ld)  ; 

!ll  ■  ia»_»b  «  -  (dt  ,’  2,0)  *  (dlan\_#b  +  dlam^ab^old) ; 

li?  •  lan^ae  »  1*^  a?_?ld  -  (dt  ,’  2,0)  *  <dlar\_ae  *  dlam^ao_old)  ; 

lira  *  iam^ra^p  -  lam^raj^old  *  (dt  /  2,0)  *  (dlam_rajp  +  dlam^rajp^old) ; 

Ilrl  »  lap^itj:'  *  lan^rb^^eld  “  (dt  i  2,0)  *  (dlam^rbj;  +  dlam^rbjp^old) ; 

lire  •  iaiejre^p  -  Aatn^rc^p^eld  -  (dt  /  2.0)  *  (dlam_rc_p  +  dlatn^rcjp^old) ; 

'*  de  the  ourrant  auit  •/ 

5*wp,  »  ji*  -►  i0i-  *  io cj 


’•  oalouiata  tha  terqua  *, 

T*  »  *  pp  *  Un*  •  <<i0a  •  lira  -  irb  /  2.0  -  ire  /  2.0)  + 

iOk  «  (irb  -  ire  /  2.0  -  ir*  /  2.0)  + 

iOo  •  (ire  -  ira  /  2.0  -  irb  t  2.0))  *  ain(thata)  + 

( aqrt  (3 .0)  .‘2 . 0)  »  ooa(thata)  * 

(iOa  *  (irb  -  ire)  ♦ 
iOb  »  (ire  -  ita)  + 
iOo  •  (.ira  -  irb) )  )  ; 


WATTS  »  Ta  «  wrr; 

Hf  <•  WATTS  /  T4K.0; 

Td  •  B  "  wnu 

TI  •  Tina  eh  +  Td; 

Torqua  ■  7  a  -  J  •  wn\_dt  -  Ti; 

thata_»  *  thata; 
w^*  “  wm; 
w,_dot_a  ■*  wtn_dt; 

do  the  integration  o l  tha  fraquancy  and  accalaration  */ 

W  »  theta_r  -  thata_»_cid  -  (dt  ;  2,0)  *  pp  *  <w_»  +  w_*_cld) ; 
Wdot  *  w  a  •  w  a  oid  -  (dt  !  2.0)  *  (w  dot  a  +  w  dot  a  old) ; 
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f  switeh_3p.c 


/*  f_switch_3p . c  */ 

!*  Norbert  H.  Doerry 

12  March  1989 

This  routine  simulates  a  3  phase  switch.  When  a  switch  is  commanded 
to  open,  the  switch  is  left  closed  until  the  current  has  a  zero-crosaing. 
This  means  that  each  phase  will  open  at  a  slightly  different  time. 

Closing  the  switch  happens  instantaneously 


*/ 

♦include  <stdio.h> 
♦include  <math.h> 
♦include  "doerry. h" 


♦define 

vOa 

e->con . in [ 0] 

♦define 

vOb 

e->con . in [ 1 ] 

♦define 

vOc 

e->con . in [2 ] 

♦define 

via 

e->con . in [ 3 ] 

♦define 

vlb 

e->con . in ( 4 ] 

♦define 

vie 

e->con.in[5] 

♦define 

iOa 

e->con . in [ 6] 

♦define 

iOb 

e->con . in [7] 

♦define 

iOc 

e->con . in [ 8] 

♦define 

ila 

e->con . in [ 9] 

♦define 

ilb 

e->con.in[10] 

♦define 

ilc 

e->con . in [ 11 ] 

♦define 

sa 

e->con. state [0] 

♦define 

sb 

e->con. state [1] 

♦define 

sc 

e->con. state [2] 

♦define 

ia 

e->con . state  [3 ] 

♦define 

ib 

e->con. state [4] 

♦define 

ic 

e->con. state  [5] 

♦define 

sa  old  e->con.old  state [0] 

♦define 

sb_old  e->con . old_state [1 ] 

♦define 

sc  old  e->con.old  state ["l 

♦define 

ia  old  e->con.old  state [3] 

♦define 

ib  old  e->con.old  state [4] 

♦define 

ic_old  e->con.old_state [5] 

♦define 

vOa_ 

0 

♦define 

vOb 

1 

♦define 

vOc 

2 

♦define 

vla_ 

3 

♦define 

vlb 

4 

♦define 

vie 

5 

♦define 

ida 

6 

♦define 

iOb_ 

7 

9  d€  f  in€: 

iOc 

p 

♦define 

ila_ 

9 

♦define 

ilb_ 

10 

♦define 

ilc_ 

11 

♦define 

Switch  e->con.e;:t  iniO] 

switch_3p (e, dt) 
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ELEMENT  *e; 
double  dt; 

( 

int  i, j; 

double  v*, vb, vc; 

Initialise  the  jaoobian  matrix  to  teroea  if  dt  ■■  0  */ 

f or  (i  “  C  ;  dt  *■  0.0  «£  i  <  6  ;  i++) 

fer  (j  -  0  ;  j  <  12  ; 

•->con . jacob_in ( i  +  6  *  j]  *  0.0; 

va  ■  via  -  vOa; 
vb  ■  vlb  -  vOb; 
vc  ■  vie  -  vOc; 

ia  -  (ila  -  iOa)  !  2.0; 

ib  -  (ilb  -  iOb)  /  2.0; 

ic  »  (ilc  -  iOc)  /  2.0; 

/*  sea  if  switch  ia  closed  */ 

if  ( Switch  “■  1.0) 

( 

sa  “  1.0; 
sb  ■  1.0; 
sc  ■  1.0; 

} 

else  /*  if  switch  is  ordered  open,  use  results  from  last  time  */ 

( 

sa  ”  sa_old; 
sb  “  sb_old; 
sc  «=  sc_old; 

} 

/*  if  the  switch  is  closed,  the  voltage  should  go  to  zero,  otherwise 
the  current  should  go  to  zero  */ 

e->con . implicit [ 0]  «  (sa  «■  1.0)  ?  va  :  ia; 

e->con . implicit [ 1 ]  “  (sb  »  1.0)  ?  vb  :  ib; 

e->con . implicit ( 2 ]  «  (sc  »«  1.0)  ?  vc  ;  ic; 

if  (sa  1.0) 

{ 

e->con .  jacob_in  [  0  +  6  *  v0a_]  «=  -  1.0; 

e->con .  jacob_in  ( 0  +  6  *  vla_]  «=  1.0; 

e->con . jacob_in [ 0  +  6  *  i0a_]  *  0.0; 

e->con . jacob_in [ 0  +  6  *  ila_]  =  0.0; 

) 

else 

( 

e->con . jacob_in [ 0  +  6  *  v0a_]  =  0.0; 

e->con . jacob_in [ 0  +  6  *  vla_]  «  0.0; 

e->con .  jacob_in  [  0  +  €  *  i0a_]  «=  -  0.5; 


198 


£_switch_3p . c 


*->con . jacob_in ( 0  +  6  *  ila_}  «  0.5; 

} 

if  (sb  «  1.0) 

( 

«">eon . jacob_in [ 1  +  6  *  v0b_]  ■  -  1.0; 

e->con . jacob_in [ 1  +  6  *  vlb_]  ■  1.0; 

e->cor. .  jacob_in  [  1  +  6  *  i0b_]  ■  0.0; 

e->cor. .  jacob_in  [  1  +  6  *  ilb_]  *  0.0; 

else 

( 

e->con . jacob_in [ 1  +  6  *  v0b_]  «  0.0; 

e->con . j«cob_in [ 1  +  €  *  vlb_]  ■  0.0; 

e->con . jacob_in [ 1  +  6  *  i0b_]  ■  -  0.5; 

e->con . jacob_in [ 1  +  6  *  ilb_]  «  0.5; 

) 

if  (sc  «■  1.0) 

{ 

e->con . jacob_in [2  +  6  *  v0c_]  *  -  1.0; 

e->con  .  jacob_in  [2  +  6  *  vlc_]  «■  1.0; 

e->con . jacob_in [2  +  6  *  i0c_]  =  0.0; 

e->con . jacob_in [2  +  6  *  ilc_]  “  0.0; 

1 

else 

( 

e->con . jacob_in [2  +  6  *  v0c_]  •  0.0; 

e->con . jacob_in [2  +  6  *  vlc_J  *  0.0; 

e->con . jacob_in [2  +  6  *  i0c_]  ■  -  0.5; 

e->con .  jacob_in  [2  +  6  *  ilc_]  *■  0.5; 

) 

/*  the  last  three  implicit  variables  assure  currents  are  the  same  */ 

e->con . implicit [3 ]  =  iOa  +  ila; 
e->con  .  implicit  [  4  ]  *=  iOb  +  ilb; 
e->con . implicit [ 5 '  =  iOc  +  ilc; 

e->con .  jacob_in  [3  +  6  *  i0a_]  *=  1.0; 

e->con . jacob_in [ 3  +  6  *  ila_]  =  1.0; 

e->con .  jacob_in  [  <1  +  6  *  iOb_]  *  1.0; 

e->con . jacob_in [ 4  +  6  *  ilb_]  =  1.0; 

e->con . jacob_in [ 5  +  6  *  iOc_]  =  1.0; 

e->con . jacob_in [ 5  +  6  *  ilc_]  =  1.0; 

/*  see  if  should  open  the  switches  (look  for  zero  crossing)  */ 

if  (Switch  ==  0) 

( 


s  a  « 

( ia  * 

ia_old 

<  = 

0.0) 

?  0.0 

1.0 

sb  = 

( ifc  * 

ib_ 

_old 

<  = 

0.0) 

?  0.0 

1.0 

sc  = 

(ic  * 

ic 

old 

<  = 

0.0) 

?  0.0 

1.0 

) 


:  oa 
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/*  turn  the  jacob_3witch  on  */ 
e->con . jacob_switch  ®  1; 

/*  save  the  external  output  variables  */ 

for  (i  =  0  ;  i  <  6  ;  i++) 

e->con.ext  out[i]  =  e->con . state [ i ] ; 
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/*  f_breaker_3p. c  */ 

/*  Norbert  H.  Doerry 

8  April  1989 

this  routine  simulates  a  3  phase  breaker.  When  a  breaker  is  commanded 
to  open,  the  switch  is  left  closed  until  the  current  has  a  zero-crossing. 
This  means  that  each  phase  will  open  at  a  slightly  different  time. 

Closing  the  switch  happens  instantaneously. 

The  overcurrent  switch  is  based  on  a  psuedo-rms  value  for  the  current 


*/ 

♦include  <stdio.h> 
♦include  <math.h> 
♦include  "doerry. h" 


♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 


vOa  e->con.in[0] 

vOb  e->con.in[l] 

vOc  e->con.in[2] 

via  e->con.in[3] 

vlb  e->con.in[4] 

vie  e->con.in[5] 

iOa  e->con.in[6] 

iOb  e->con.in[7] 

iOc  e->con.in[8] 

ila  e->con . in [ 9] 

ilb  e->con . in [ 10 ] 

ilc  e->con . in ( 1 1 ] 

sa  e->con . state [0 ] 

sb  e->con . state [ 1 ] 

sc  e->con. state (2] 

ia  e->con . state [3 ] 

ib  e->con. state [4] 

ic  e->con . state [ 5 ] 

ave_ia  e->con . state f 6] 

ave_ib  e->con . state [ 7] 

ave_ic  e->con . st ate [ 8 ] 

t _ia  e->con . state [ 9] 

t_ib  e ->con . state [ 10 ] 

t_ic  e->con . state [ 11 ] 

aa_old  e->con . old_state (0 ] 

ab_old  e->con . old_state [ 1 ] 

sc_old  e->cori .  old_3tate  [2  ] 

ia_old  e->con.old_state [3] 

ib_old  e->con . old_state [ 4 ] 

ic_old  e->con . old_state ( 5 ] 

ave_ia_old  e->con . old_state [ 6] 

ave_ib_old  e->con . old_state [ 7] 

ave_ic_old  e->con . old_state ( 8 ] 

t_ia_old  e->con . old_state [ 9] 

t_ib__old  e->con  .  old_state  [  10] 

t  ic  old  e->con.old  state[ll] 
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♦define  vOa_  0 
♦  define  vOb__  1 
♦define  vOc_  2 
♦define  vla_  3 
♦define  vlb_  4 
♦define  vlc_  5 
♦define  iOa_  € 

♦define  iOb_  7 
♦define  iOc_  8 
♦define  ila  9 
♦define  ilb_  10 
♦define  ilc_  11 

♦define  Switch  e->con , ext_in [0 ] 

♦define  f  e->con .param [0 ] 

♦define  I_trip  e->con . param [ 1 ] 

♦define  time_trip  e->con .param [2 ] 

/*  The  following  are  the  states  of  the  switches  */ 


♦define  ALL_ON  7.0 
♦define  WRONG  6.0 
♦define  TRIPPED_C  5.0 
♦define  TR1PPED_0  4.0 
♦define  SW_0FF_C  3.0 
♦define  SW_0FF_0  2.0 
♦define  ALL_OFF_C  1.0 
♦define  ALL  OFF  O  0.0 


br eaker_3p  (e , dt ) 

ELEMENT  *e; 
double  dt; 

{ 

int  i, j  ; 

double  va,vb,vc; 

/*  initialize  the  jacobian  matrix  to  zeroes  if  dt  0  */ 

for  (i  “  0  ;  dt  •==  0 . 0  &  &  i  <  6  ;  i++) 
for  (j  =  0  ;  j  <  12  ;  j++) 

e->con  .  jacob_in  [  i  +  6  *  j]  ■■  0.0; 

va  =  via  -  vOa; 
vb  =  vlb  -  vOb; 
vc  «=  vie  -  vOc; 

ia  -  (ila  -  iOa)  /  2.0; 
ib  =  ( i lb  -  iOb)  /  2.0; 
ic  =  (ilc  -  iOc)  /  2.0; 

/*  see  if  modes  are  illegal  */ 
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< 


if 

(a« 

> 

7  1 

1  aa 

< 

0  1 

1  aa 

»»  WRONG) 

•  a  » 

ALL_0N ; 

if 

(ab 

> 

7  1 

1  ab 

< 

0  1 

1  ab 

-«  WRONG) 

I 

sx 

« 

ALL_0N ; 

if 

(ac 

> 

7  1 

1  ao 

< 

o  1 

1  ao 

-»  WRONG) 

ac  m 

ALL  ON; 

) 

if  (Switch  *•  1.0) 

( 

f_awiteh_on (Sea) ; 
f_awitch_on (Sab)  ; 
f__awltch_on  (Sac)  ; 

) 

•  la* 

< 

£_awitch_off (Ssa) ; 
f__switch_o££  (Sab)  ; 
f_awitoh_off  (Sac)  ; 

) 


/*  aee  if  breaker  should  open  */ 

if  (t_ia_old  >■  time_trip  I  I  t_ib_old  >=  time_trip  |  |  t_ic_old  >=  time_trip) 

( 

f_br*ak*r_of f (Ssa)  ; 
f_broaker_of £ (Sab)  ; 

£_breaker__of  f  (Sac)  ; 

) 


/*  if  the  awitch  is  closed,  the  voltage  should  go  to  zero,  otherwise 
the  current  should  go  to  zero  */ 


e->con . implicit [0]  »  ((int) 
e->con . implicit [ 1 ]  »  ((int) 
e->con  .  implicit  [  2  ]  ■=  ((int) 

if  ((int)  aa  %  2  ==  1,0) 

( 

e->con . jacob_in ( 0  +  €  * 
e->con . jacob_in [ 0  +  6  * 
e->con . jacob_in [ 0  +  6  * 
e->con . jacob_in ( 0  +  6  * 

) 

else 

( 

e->con . jacob_in ( 0  +  6  * 
e->con . jacob_in [ 0  +  6  * 
e->con . jacob_in ( 0  +  6  * 
e->con . jacob_in ( 0  +  6  * 

) 

if  (  (int)  sb  2  ==  1.0) 

< 

e->cori .  jacob_in  [  1  +  6  * 


a  a 

% 

2 

==  1.0) 

? 

va  : 

ia 

sb 

% 

2 

-=  1.0) 

? 

vb  : 

ib 

sc 

% 

2 

«*  1.0) 

? 

vc  : 

ic 

vOa_]  -  -  1.0; 

vla_]  =  1.0; 

i0a_]  =  0.0; 

ila  ]  =  0.0; 


v0a_)  =  0.0; 

vla_]  =  0.0; 

i0a_]  =  -  0.5; 

ila  ]  *  0.5; 


vOb  ]  *  -  1.0; 
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e->con . jacob_in [ 1  +  6  *  vlb_J  ■»  1.0; 

«->con . jacob_in [ 1  +  6  *  i0b_]  *  0.0; 

e->con . jacob_in [ 1  +  6  *  ilb_]  =  0.0; 

) 

else 

{ 

e->con . jacob_in [ 1  +  €  *  v0b_]  =  0.0; 

e->con .  jacob_in  ( 1  +  6  *  vlb  ]  ■>  0.0; 

e->con . jacob_in ( 1  +  6  *  i0b_]  *=  -  0.5; 

e->con .  jaoob_in  [  1  +  6  *  ilb  ]  *=  0.5; 

} 

if  ( (int)  sc  %  2  ==  1.0) 

{ 

e->con . jacob_in [2  +  6  *  v0c_]  «  -  1.0; 

e->con . jacob_in [ 2  +  6  *  vlc__]  «=  1.0; 

e->con . jacob_in [ 2  +  6  *  i0c_]  =  0.0; 

e->con . jacob_in [ 2  +  6  *  ilc_]  «  0.0; 

} 

else 

{ 

e->con . jacob_in [ 2  +  6  *  v0c_]  ■=  0.0; 

e->con.  jacob_in  [2  +  6  *  vlc_]  «=  0.0; 

e->con . jacob_in ( 2  +  6  *  i0c_]  =  -  0.5; 

e->con. jacob_in [2  +  6  *  ilc_]  “  0.5; 

) 

/*  the  last  three  implicit  variables  assure  currents  are  the  same  */ 

e->con .implicit [3]  =  iOa  +  ila; 
e->con . implicit [ 4 ]  “  iOb  +  ilb; 
e->con  .implicit  [5]  «■  iOc  +  ilc; 

e->con  .  jacob_in  [  3  +  6  *  iOa__]  «  1.0; 

e->con . jacob_in [ 3  +  6  *  ila_]  =  1.0; 

e->con . jacob_in [ 4  +  6  *  i0b_J  ■  1.0; 

e->con . jacob_in [ 4  +  6  *  ilb__]  “  1.0; 

e->con . jacob_in ( 5  +  6  *  iOc  ]  ■  1.0; 

e->con.jacob  in [ 5  +  6  *  ilc_]  ■  1.0; 

/*  see  if  should  open  the  switches  (look  for  rero  crossing)  */ 

if  (ia  *  ia_old  <«  0.0)  f_zero_cro»a (Ssa) ; 

if  ( ib  *  ib_old  o  0,0)  f_zero_cro*s (tsb)  ; 

if  (ic  *  ic_old  <«■  0.0)  f_zero  cross  (Sac); 

/*  update  the  current  timers  */ 

/*  calculate  the  rms  currents  */ 

if  ( f  >  1.0)  f  «  1.0; 
if  (f  <  0)  f  =  0.0; 

/*  compute  new  average  */ 
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ave_ia 

■  sqrt( 

(1.0  -  f)  *  ia 

*  ia  + 

f  *  ave_ia_old  * 

av*_it_ 

.old) > 

ave_ib 

■  sqrt ( 

(1.0  -  f)  *  ib 

*  ib  + 

f  *  tv* 

_ib_ 

old  * 

ave_ib_ 

'old) ; 

ave_ic 

■  sqrt( 

(1.0  -  f)  *  ic 

*  ic  + 

f  *  ave 

_ic_ 

_old  * 

ave__ic_old) ; 

t  ia  » 

(ave_ia 

>«■  I_trip)  ?  t_ 

_ia_old 

+••  dt  s 

0; 

t_ib  - 

(ave_ib 

>-  I_trip)  ?  t_ 

_ib_old 

+■  dt  i 

0; 

t _ ic  “ 

(ave_ic 

>-  I_trip)  ?  t_ 

_ic_old 

+■  dt  : 

0; 

/*  turn  the  jacob_switch  on  */ 
e->con . jacob_switch  «  1; 

/*  save  the  external  output  variables  */ 

for  (i  =  0  ;  i  <  12  ;  i++) 

e->con.ext  out[i]  «=  e->eon  .  state  (ij; 


/*  f_switch_on  performs  the  transformation  of  states  for  the 
external  input  variable  turning  on  */ 

f  switch  on (x) 


double 

( 

if 

*x; 

(*x 

se 

ALL_0FF_0) 

*x  -  ALL_0N 

else 

if 

(*x 

... 

ALL_0FF_C) 

*x  -  ALL_0N 

else 

if 

<*x 

mta 

SW_0FF_0) 

*x  ■»  A1L_0N 

else 

if 

<*x 

— 

SW_0FF_C ) 

* x  -  ALL_0N 

else 

if 

(*x 

BS 

TRIPPED_0) 

return; 

else 

if 

(*x 

K8 

TRIPPED_C) 

return; 

else 

if 

<*x 

mm 

ALL_0N)  return; 

else 

*x 

-  ALL_0N; 

} 


f_awitch__of f  (x) 
double  *x; 

( 


if 

(*x 

mm 

ALL_0FF_0) 

*x 

■ 

ALL_0FF__0 

else 

if 

(*x 

— 

ALLJ3FF_C) 

*x 

■ 

ALL_0FF_C 

else 

if 

(*X 

■c  m 

SW_0FF_0) 

*x 

m 

SW_0FF_0 ; 

else 

if 

(*x 

mm 

SW_0FF_C ) 

*  X 

■E 

SW_0FF_C ; 

else 

if 

(*x 

mm 

TRXPPED_0) 

*  X 

K 

ALL_0FF_0 

else 

if 

(*x 

mm 

TRIPPED_C) 

*  X 

m 

ALL_0FF_C 

else 

if 

(*x 

mm 

ALL  JON) 

*  X 

m 

SW_0FF_C ; 

else 

*x 

m 

SW  OFF  C; 

) 

f  breaker  off (x) 
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double  *x; 
( 


if 

<*x 

■  « 

ML_orr_°) 

*x 

■ 

XLL_orr_o> 

•  lae 

if 

<*x 

All,>F> 

•x 

KLL_0TV_Cl 

elae 

if 

<*X 

m  m 

SW_0FF_0) 

*x 

■1 

KLL~0TT_0> 

elae 

if 

(*X 

mm 

sw_orr_o 

*x 

■ 

kLLJiTTJZt 

elae 

if 

<*x 

■  ■ 

TRIPPED_0) 

»x 

m 

TRXPPED_0; 

elae 

if 

(*X 

■  ■a 

TRIPPED  _C) 

*x 

m 

TRIPPED_C; 

elae 

if 

(*x 

■  ■ 

ALL_0N ) 

»x 

m 

TRIPPED_C; 

elae 

*x 

TRIPPED  C; 

) 


f_2«ro_cro»» (x) 
double  *x; 

( 


if 

<*x 

— 

ALL_0FF_0) 

*x 

■ 

M.Ij_°FF_°» 

elae 

if 

<*x 

■  M 

ALL_0FF_C) 

*x 

K 

ALL_°FF_°; 

else 

if 

<*x 

— 

SW_0FF_0 ) 

*x 

■a 

SW_0FF_0; 

else 

if 

(*x 

mm 

SW_0FF_C) 

*x 

■ 

SW_0FF_0 ; 

else 

if 

I*X 

-- 

TRIPPED_0) 

*  X 

■ 

TRIPPED_0; 

else 

if 

(*X 

■  at 

TRIPPED_C) 

*x 

m 

TR1PPED_0; 

else 

if 

(*x 

at  m 

AIiL_0N ) 

*  X 

m 

ALL^ON ; 

else 

*x 

ALL  ON; 

) 
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I  ty  »l  *y  J1  «■ ), , 


•  r • 

»  n-v>m»  It, 


\i  N*l*l»  »*M 

Tin*  fit*  4***l'4l***  ft 


He-'iU4*  1'»UI»,li' 

*m»iu4*  M**th,lt> 

Unaiud*  "dsai’iy  ,h" 


♦4*f in* 

vP  •■?><'6n,in|PJ 

*4* fin* 

v5  *»>ocr, ,  in  1 5 ! 

ld*f in* 

i<>  *->oon,*nl*) 

•  4*  1 1 ns 

il  *->i>*r, .  in  1-' J 

14* fin* 

vf  _  e 

M*f  in* 

vl__  l 

»d*f  in* 

itl  : 

•d*fin* 

ll_  4 

»d*f in* 

Jwitoh  •'•>een.*NV>_in|0) 

M*f in* 

v  *'*>eon.*xt^out  (0) 

»i*f in* 

i  *-;»agn. *wt^©ut  i  1] 

»p»t_»witoh (*,  dt ) 

ELEMENT 

doubl*  dt/ 

\ 

doubl*  int*g(j; 


v  »  vO  -  vl  ; 
i  »  (ic-  -  il)  /  2.0; 


,  *  second  implicit  v«ri*bl*  i*  *um  of  currant*  */' 
*->con . implicit | 1 )  “  10  +  il/ 

/*  **t  up  th*  j*cobi*n  matrix  */ 

*->con . j*cob_*witch  »  1/  /*  turn  j*oobi*n  switch  on 

if  (Switch  ■«  0)  open  */ 

( 

e-o-ccr. .  imp  licit  [C]  »  i; 


*->ccn . j*cob_in ! 0 

+ 

2 

• 

< 

o 

1 

.)  - 

0.0; 

e-icon . n*cot_in ( 0 

+ 

2 

*  vl- 

.]  - 

o 

o 

*->con,j«cob  in(0 

+ 

2 

*  i0_ 

]  - 

0.5; 

«->ccr, .  j*cok_in  [  0 

+ 

2 

»  il_ 

,]  - 

-0.5; 

) 
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•  la*  '•  eleaad 

\ 

•->a«n , implicit | 0)  ■  v; 

•->»eon  .  Jaoob^in  1 0  +  2  *  v0_]  ■  1.0; 

•  ->oon  ,  jacobin  ( 0  +  2  •  vl_)  «  -  1.0/ 

•*>aon  .  ,1aaofc_iri ( 0  +  2  *  i0_]  ■  0.0; 

*->aon . j«aeb_in | 0  +  2  *  il_]  ■  0.0; 

I 


•  ->con  ,  jaoob_i.n  ( 1  +  2  *  v0_]  ■  0.0; 

•*>aon . jac©b_in | 1  +  2  *  vl_]  ■  0.0; 

•  ->oon . Jaoob_ in 1 1  *  2  *  i0_]  ■  1.0; 

•->con . 3*oob_ in ( 1  +  2  •  il_)  ■  1.0; 
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f_gan_syneh_3j .  c 


f_aan_synch_3p. c 
■' *  Norbert  K.  Doerry  * / 

/*  12  March  1969 

This  file  simulates  a  synchronous  generator  that  is  modelled  as 
a  thraa  phasa  souroa  with  a  aariaa  inductance.  Tha  magnituda  and 
tha  fraquancy  of  tha  ganarator  ara  input  variablas.  Tha  phasa  angla 
of  phasa  a  along  with  tha  inductanca  ara  parameter*. 

*■  ' 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doarry.h" 

♦define  RAD_DEG  0.017453293 
♦define  DEG_RAD  57.29578 
♦define  HZ_RADSEC  0.15915494 
♦define  RADSEC_HZ  6.2831853 
♦define  PRASE_SHIFT  2.0943951 

♦define  vOa  e->con.in(0] 

♦define  vOb  e->con.in[l] 

♦define  vOc  e->con.in[2] 

♦define  vOn  e->con.in[3] 

♦define  iOa  e->con.in[4] 

♦define  iOb  e->con.in[5] 

♦define  iOc  e->con.in[6] 

♦define  iOn  e->con.in[7] 

♦define  Vmag  e->con.in[8] 

♦define  freq  e->con.in[9] 

♦define  va  e->con . state [0 ] 

♦define  vb  e->con . state [1 ] 

♦define  vc  e->con . state (2 ] 

♦define  ia  e->con . state [3 ] 

♦define  ib  e->con . state (4 ] 

♦define  ic  e->con . state [ 5 ] 

♦define  t  e->con . state [ 6 ] 

♦  define  vga  e->con . state  [7 ] 

♦define  vgb  e->con . state [8 ] 

♦define  vgc  e->con . state [ 9 ] 

♦define  va_old  e->con.old  state (0) 

♦define  vb_old  e->con . old_state [ 1 ] 

♦define  vc_old  e->con.old_state [2] 

♦define  ia_old  e->con.old_state [3] 

♦define  ib_old  e->con . old_state [ 4 ] 

♦define  ic_old  e->con . old_state [ 5 ] 

♦define  t_cld  e->son . cld_state [ € ] 

♦define  vga_old  e->con . old_state [ 7 ] 

♦define  vgb_old  e->con . old_state [ 6 ] 

♦  define  vgc_oid  e->cor. .  old_state  [  9  ] 

♦define  vOa  0 

r define  v0b_  1 
♦define  v0c_  2 
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♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 

♦define 


vOn  3 
iOa_  4 
iOb_  5 
iOc_  6 
iOn_  7 
Vmag_  8 
freq_  9 

phase_a  e->con.param[0] 
L  e->con .paramf 1 ] 
p.  e->con.param[2] 


gen_synch_3p (e, dt) 

ELEMENT  «e; 
double  dt; 

( 

int  i,  j; 

double  fta  ,  ftb,  ftc,  fta_old, ftb_old, ftc_old; 
double  pa,pb,pc; 

/*  initialize  the  jaeobian  matrix  to  zeroes  if  dt  --  0  */ 

for  (i  -  0  ;  dt  -»  0.0  &&  i  <  4  ;  iA+) 
for  (j  «■  0  ;  j  <  10  ;  j++) 

e->con . jacob_in [ i  +  4  *  j]  =  0.0; 

/*  calculate  states  */ 


va 

m 

vOa  - 

vOn; 

vb 

« 

vOb  - 

vOn ; 

VC 

B 

vOc  - 

vOn; 

ia 

B 

(iOa 

-  iOn  - 

iOb  -  iOc) 

/ 

to 

O 

ib 

B 

(iOb 

-  iOn  - 

iOc  -  iOa) 

/ 

2.0 

ic 

B 

( iOc 

-  iOn  - 

iOa  -  iOb) 

/ 

2.0 

/* 

update 

the  time 

counter  * 

/ 

t  “  Qt  +  t  old; 


/*  calculate  phases  */ 


pa 

«  (freq  * 

t  *  RADSEC_nZ  + 

phase  a  *  PvAD_DEG)  ; 

pb 

-pa  -  PHASE_SHIFT; 

pc 

»  pa  +  PHASE_SHIFT; 

/  * 

calculate 

phase  generator 

voltages  */ 

vga 

-  Vmag  * 

cos (pa) ; 

verb 

-  Vmag  * 

cos (pb) ; 

vgc 

=  Vmag  * 

cos (pc) ; 

l*  sum  cf  currents  should  be  zero  */ 
e->con .  implicit  [3  j  ■*  iOa  +  iOb  +  iOc  +  iOn; 
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-'■cor. .  iacob_in  (3 

+ 

4 

* 

i0a_] 

o 

H 

1 

->con . jacofc  in [ 3 

+ 

4 

* 

i0b_] 

-  1.0 

->con.jacob  in [3 

+ 

4 

* 

i0c_] 

11 

*-* 

O 

->con.jacob  in [3 

+ 

4 

Hr 

i0n_] 

-  1.0 

see  if  inductance  is  zero  */ 

if  (L  ==  0) 

e->con . implicit [ 0]  *  va  -  vga; 
e->con . implicit ( 1 ]  ■  vb  -  vgb; 
e->con  .implicit  [2]  ■>  vc  -  vgc; 

e->con . jacob_in [ 0  +  4  *  v0a_]  “  1.0; 

e->con . jacob_in [ 0  +  4  *  v0n_]  “  -1.0; 

e->con . jacob_in [ 0  +  4  *  freq  ]  *  Vmag  *  t  *  RADSEC_HZ  *  sin (pa); 

e->ccr, .  jacob_in  [  0  +  4  *  Vmag_]  >»  -  cos  (pa)  ; 

e->con . jacob_in [ 1  t  4  *  v0b_]  ■  1.0; 

e->con .  jacob_in  [  1  +  4  *  v0n_]  ■=  -1.0; 

e->ccn . jacob_in [ 1  +  4  *  freq_]  *•  Vmag  *  t  *  RADSEC_HZ  *  sin(pb); 

e->cor. .  jacob_in  [  1  +  4  *  Vmag_]  ■  -  cos  (pb)  ; 

e->con. jacob_in[2  +  4  *  v0c_]  «  1.0; 

e->con . jacob_in [ 2  +  4  *  v0n_]  “  -1.0; 

e->con . jacob_in [2  +  4  *  freq_]  •»  Vmag  *  t  *  RADSEC_HZ  *  sin(pc); 

e->con . jacob_in [2  +  4  *  Vmag_)  ■  -  cos (pc) ; 

} 

else  if  (R  “=  0)  /*  if  leakage  resistance  is  zero,  output  voltages  are  0  */ 

{ 

e->con . implicit [ 0]  =  va; 
e->con  .  implicit  [  1  ]  ■=  vb; 
e->con .implicit [2]  =  vc; 

e->cor. .  jacob_in  [  0  +  4  *  v0a_]  *»  1.0; 

e->con .  iacob_in  [  0  +  4  *  v0n_]  ■  -1.0; 

e->con . jacob_in [ 1  +  4  *  v0b_]  *  1.0; 

e->con .  jacob_in  [  1  +  4  *  v0n_]  «=  -1.0; 

e->con . jacob_in [ 2  +  4  *  v0c_J  *•  1.0; 

e->con . jacob_in [ 2  +  4  *  v0n_]  “  -1.0; 

} 

else 


e->con . implicit [ 0]  =  ia  -  ia_old  -  (dt/2.0)  * 

(  (va  -  vga)  +  (va_old  -  vga_o.\d)  )  /  L  -  (va  -  va_old)  /  R; 
e->con .  implicit  [  1  ]  *=  ib  -  ib_old  -  (dt/2.0)  * 

( (vb  -  vgb)  +  (vb_old  -  vgb_old) )  /  L  -  (va  -  va_old)  /  R; 
e->con . implicit [2]  «  ic  -  ic_old  -  (dt/2.0)  * 

( (vc  -  vgc)  +  (vc_old  -  vgc_old) )  /  L  -  (va  -  va_old)  /  R; 
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e->con . jacob_in [0  +  4  *  i0a_]  »  0.5; 

*->cor. .  jacob_in  [  0  +  4  *  iOb  ]  »  -0.5; 

e->con . jacob_in [0  +  4  *  iOc  ]  -  -0.5; 

e->con . jacob_in [ 0  +  4  *  iOn_J  «  -0.5; 

e->con . jacob_in [0  +  4  *  vOa_]  ■  -  dt  /  (2.0  *  L)  -l.O/R; 
e->con . jacob_in [ 0  +  4  *  vOn_]  ■  -  e->con.jacob  in[0  +  4  *  vOa  ]; 

e->con . jacob_in [0  +  4  *  Vmag_]=  oos(pa)  *  dt  /  (2.0  *  L)  ; 

e->con . jacob_in [ 0  +  4  *  freq_]= 

-  dt  *  Vmag  *  sin (pa)  *  t  *  RADSEC_HZ  /  (2.0*L); 

e->con . jacob_in [ 1  +  4  *  iOb  ]  •*  0.5; 

e->con . jacob_in ( 1  +  4  *  i0c_]  *  -0.5; 

e->con . jacob_in [ 1  +  4  *  i0a_]  »  -0.5; 

e->con.jacob  in [ 1  +  4  *  iOn_]  ■  -0.5; 

e->con  .  jacob_in  [  1  +  4  *  vOb_)  ■■  -  dt  /  (2.0  *  L)  -l.O/R; 

e->con . jacob_in [ i  +  4  *  vOn_]  «  -  e->oon . jacob_in [ 1  +  4  *  vOb_] ; 

e->con . jacob_in [ 1  +  4  *  Vmag_]=  cos (pb)  *  dt  /  (2.0  *  L)  ; 

e->con . jacob_in [ 1  +  4  *  freq_]“ 

-  dt  *  Vmag  *  sin(pb)  *  t  *  RAD£EC_HZ  /  (2.0  *  L); 

e->con . jacob_in [2  +  4  *  iOc_]  ■  0.5; 

e->con . jacob_in [2  +  4  *  iOa_]  ■  -0.5; 

e->con . jacob_in (2  +  4  *  iOb_]  *  -0.5; 

e->con . jacob_in [2  +  4  *  i0n_]  *  -0.5; 

e->con . jacob_in [2  +  4  *  vOc_]  -  -  dt  /  (2.0  *  L)  -l.O/R; 

e->con . jacob_in [2  +  4  *  v0n_J  •>  -  e->eon . jacob_in [ 2  +  4  *  vOc_] ; 

e->con . jacob_in [2  +  4  *  Vmag_)«  cos (pc)  *  dt  /  (2.0  *  L)  ; 

e->con . jacob_in [2  +  4  *  freq_]“ 

-  dt  *  Vmag  *  sin (pc)  *  t  *  RADSEC  HZ  /  (2.0  *  L); 


/*  turn  the  jacob  switch  on  */ 

e->con  .  jacob_switch  *■  1; 

/*  store  external  output  variables  */ 

for  (  i  =  0  ;  i  <  6  ;  i++> 

e->con .ext_out [i]  =  e->con . state [i] ; 
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penner  .  h 


/*  penner. h  */ 

/*  Norbert  H.  Doerry 

14  March  1989 

This  is  an  include  file  which  tells  the  main  program  where  to  get 
the  proper  information  for  the  devices 

***  Modified  11  April  1989  by  nhd  **** 

added  breaker_3p 

***  Modified  15  April  1989  by  nhd  **** 

added  synch_mach,  spesd_reg,  volt_reg, ind_motor, gas_turbine,  source 
integrator 

***  Modified  27  April  1989  by  nhd  **** 
added  volt  meter 


typedef  int  (*FUNCTION_PTR) ( ) ; 

♦define  NBR__DEV_FILES  2  /*  number  of  device  description  files  */ 

static  char  *device_file [ ]  =  /*  names  of  the  device  description  files  */ 

< 

"/mit/13 . 4 ll/sepsip/three_phase . input" , 

"/mit/13 .411/sepsip/one  ^phase . input" 

); 

static  int  nfcr_device_f ile [ ]  «= 

< 

12,  /*  number  of  devices  per  file  */ 

10 

}; 

static  char  *device_name [ ]  =  /*  names  of  devices  */ 

{ 

"t_line_3p" , 

"rl_wye” , 

"gen_synch_3p" , 

"switch_3p" , 

"rms " , 

"breaker  3p", 

"synch_mach", 

"speed_reg" , 

"vclt  reg", 

"ind_motor " , 

"gas_turbirie", 
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"vdt_MUr" , 

"inductor” , 

"capacitor" , 

"reaistor" , 

"voltaae_source" , 

"current_aource" , 

"diode" , 

"switch" . 

"p  ui  s*__switch" , 

"source" , 

"integrator" 

) ; 

device  functions  for  tha  above  device  names  */ 

♦define  FO  t__line_3p 

♦  define  FI  rl  vjye 
♦define  F2  gen_synch_3p 
♦define  F3  switch_3p 
♦define  F4  rms 

♦  define  F4a  br«alcer_3p 

♦  define  F4b  synch__mach 
♦define  F4c  speed_reg 
♦define  F4d  volt_reg 
♦define  F4e  indjnotor 
♦define  F4f  gas_turbine 
♦define  F4g  volt_meter 

♦define  F5  inductor 
♦define  F6  capacitor 
♦define  F7  resistor 
♦define  F8  voltage_source 
♦define  F9  current_source 
♦define  F10  diode 
♦define  Fll  spst_switch 
♦define  F12  pulse  switch 
♦define  F13  source 
♦define  F14  integrator 


int 

FO  0 

int 

FI  () 

int 

F2  () 

int 

F3  () 

int 

F  4  0 

int 

F4a  () 

int 

F4b  ( ) 

int 

F4  =  () 

int 

F4d  ( ) 

int 

F4e  ( ) 

int 

F4f  () 

int 

F4g() 

int 

F5  () 

int 

F6  (; 
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int  F7  ( )  ; 
int  F8  ( )  ; 
int  F9  ()  ; 
int  F10  ()  ; 
int  FI  1  ()  ; 
int  F12  ()  ; 
int  F13  ()  ; 
int  FI 4  ( )  ; 


static  FUNCTION_PTR  dev_fnctn[]  = 

{ 

FO, 

FI, 

F2 , 

F3, 

F  4  , 

F4  a, 

F4b, 

F4c, 

F4d, 

F4e, 

F4f, 

F4g, 

FE, 

F6, 

F7, 

F8, 

F& , 

FI  0, 

f:i, 

F12, 

F13, 

FI  4 


/*  addresses  of  device  functions  */ 
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three_phase . input 


three  phase. input 

Norbert  H  Doerry 
11  March  1989 

***  last  update  17  April  1989 
***  updated  27  April  1989 


This  file  describes  the  following  devices 


!  t_line_3p 

!  rl_wye 

!  gen_synch_3p 

!  switch_3p 

!  rms 

!  breaker 

!  synch_mach 

!  speed_reg 

!  volt_reg 

!  ind_motor 

!  gas_turbine 

!  volt_meter 

I 

name  t  line  3p 
inputs  12 
vOa 
vOb 
vOc 
via 
vlb 
vie 
iOa 
iOb 
iOc 
ila 
i  lb 
ilc 

states  £ 
va 
vb 
vc- 
ia 
ib 
ic 

implicit  6 
integ  a 
integ_b 
integ_c 
i_e  u"_a 
i_surr._b 
i_surr._c 

externa;  output  6 
float  Va 
float  Vb 
float  V  c 


:transmission  line 
:RL  Wye  Load 

: synchronous  generator  with  synchronous  reactance 
: three  phase  switch 

calculates  average  value  of  voltage 
:three  phase  breaker 
synchronous  machine  model 

speed  regulator  model  (turbine  with  governor) 
:voltage  regulator  (field  excitation) 

: induction  motor  model 
:gas_turbine  model 
: three  phase  voltage  meter 
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float  la 
float  lb 
float  Ic 
parameters  3 
R 
L 
R1 

end 

I 

name  rl_wye 
inputs  8 
vOa 
vOb 
vOc 
vOn 
iOa 
iOb 
iOc 
iOn 

states  6 
va 
vb 
vc 
ia 
ib 
ic 

implicit  4 
int_a 
int_b 
int_c 
i_sum 

external  output  6 
float  Va 
float  Vb 
float  Vc 
float  la 
float  Ib 
float  Ic 
parameters  .3 
P. 

L 

P.l 

end 

i 

name  gen  synch_3p 
inputs  10 
vOa 
vOb 
vOc 
vOn 
iOa 
iCt 
iOc 
iOr. 


.  input 


Vmeg 
f  l*q 


state#  10 

V* 

vb 

VC 

ia 

ib 

ic 

t 

vga 

vgfc 

vgc 

impl icit 

4 

int_* 

int_b 

int_c 

i  sum 

external 

output  t 

float 

Va 

float 

Vb 

float 

Vc 

float 

Ia 

float 

Ib 

float 

Ic 

parameters  3 

phase_a 

L 


R 

end 

; 

name  switch_3p 
inputs  12 
vOa 
vOb 
vOc 
via 
vlb 
vie 
iOa 
iOb 
iOc 
ila 
i  lb 
lie 

states  6 
sa 
sb 
sc 
ia 
ib 
ic 

implicit  6 
inteq  a 
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inte^_l 
intent 
i^BUI*  a 
i  in»ufn_t' 
i_aum^c 

tHternai  input.  1 
•witch  Switch 
external  output  6 
•witch  Sc 
•witch  Sk 
•witch  Sc 
f loat  It 
float  It 
float  lc 

and 

I 

name  rm* 
input*  1 
vO 
vl 

atataa  1 

ave 

•Ntarnal  output  1 
float  v 
parameters  1 
f 

end 

! 

name  braakar_3p 
inputa  12 
vOa 
vOb 
vOc 
via 
vlb 
vie 
i  Oa 
iOb 
iOc 
ila 
i  lb 
ilc 

states  12 
sa 
sb 
sc 
ia 
it. 
ic. 

ave_ia 

ave_ib 
ave_ic 
t_ia 
t  ib 
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t_ic 

implicit  i 
.int*9_« 
int*y_fc 
int*9_c 
i_*um_a 
i_*um_b 
i_*um_e 

•.ttarnal  input  1 
•witch  Switch 
external  output  6 
•witch  S* 
•witch  Sb 
•witch  Sc 
float  la 
float  lb 
float  Ic 
parameter*  3 
f 

I_t.rip 

time_trip 

and 

i 

name  »ynch_mach 
input*  17 
vOa 
vOb 
vOc 
vOn 
iOa 
iOb 
iOc 
vOf 
v  1  f 
iOf 
ilf 
thata 
wrn 

wm_dt. 

Ta 

Ps  i_q 
Psi_d 
states  13 
s_theta 
s_wm 

S_WIT,__dt 
psl_d 
psi  q 

«q_p 

«q_pp 

ed_pp 

d_psi_d 

d_psi_q 

d_«q_p 
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three_ph*#e . input 


d_«q_pp 
d_ed_pp 
implicit  11 
ilium 
if  sum 
vc 

i_«q_PF 

i_ed_pp 

Torq 

W 

Wdot 

parameter*  16 

xd 

xq 

Xd_p 

Xd_pp 

«a_pp 

xal 

Tdo_p 

Tdc_pp 

Tqo_jsp 

Tad 

Ifni 

K 


pp 

wbs 

Vdb 

Pbs 

external 

output 

float 

xad 

float 

xkd 

float 

Xf 

float 

rf 

float 

IdB 

float 

IfB 

float 

VfB 

float 

Tbs 

float 

alpha 

float 

if  d 

float 

vf  d 

float 

eaf 

float 

vd 

float 

vq 

float 

id 

float 

iq 

float 

Tepu 

float 

RPK 

float 

Pmech 

float 

Pe 

float 

Tacc 

float 

x  3 
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thrae_pha*e .  input 


float  lb 
float  Ic 

and 

nama  apaad_rag 
inputs  3 
wm 
Tm 
s 

state*  2 
!  wg 
!  ws 

Tm_order 

Tmpu 

implicit  1 
dT_dt 

parameters  € 
wnlo 
wds 

wdTepu 

TBS 

Tg 

B 

external  outputs  4 
float  Tmm 
float  Tm_ 
float  Pshaft 
float  Pdelivar 
end 

name  volt_reg 
inputs  11 
vOa 
vOb 
vOo 
vOf 
vlf 
iCf 
ilf 
vbs 
whs 
phase 
vt 

states  4 
Verr 
Vsig 
theta 
clip 

parameters  5 
Vfdfcs 
K 

Tvr 
Vf  max 

Vfmin 
implicit  4 
II 
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throe_pha*  e . input 


12 

Isum 

Integrate 

end 

name  ind_motor 
inputs  13 
vQa 
vOb 
vOc 
iOa 
iOb 
iOc 
theta 
wm 

wm_dt 

vOn 

ira 

irb 

ire 

parameters  9 
Rs 
Xls 
XK 

Xlr_prime 

Rr_prime 

J 

wbs 

PP 

B 

states  15 
lam_sa 
lam_sb 
lam_sc 
dlam_sa 
dlam_sb 
dlam_sc 
iam_ra_p 
lam_rb_p 
lam_rc_jp 
dlam_ra__p 
d.lam_rb_p 
dlam  re  p 
theta_s 
w  s 

w  dot_s 
implicit  10 


lie 
lira 
I  irb 
lire 


I  s  urn 
W 
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Wdot 

Torque 

external  inputs  1 
float  Tmech 
external  outputs  9 
float  RPM 
float  To 
float  Td 
float  T1 
float  WATTS 
float  HP 
float  la 
float  lb 
float  Ic 
end 

name  gas_turbine 
inputs  3 
win 

wm  dt 
Tm 
end 

name  volt_meter 
inputs  6 
vOa 
vOb 
vOc 
wbs 
phase 
vt 

parameters  1 
Vbs 

implicit  2 

11 

12 

states  1 
theta 

external  outputs  2 
float  Vt 
float  Phase 
end 
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one  phase . input 


!  one_phase . input 

i 

•  Norbert  H  Doerry 
] 

!  15  March  1989/  modified  15  april  1989 

i 

!  The  descriptions  for  the  following  devices  are  contained  here 
!  inductor 

!  capacitor 

!  resistor 

!  voltage_source 

!  current_source 

!  diode 

!  switch 

!  pulse_switch 

!  source 

!  integrator 

I 

name  inductor 
inputs  4 
vO 
vl 

10 

11 

states  2 
v 

i 

implicit  2 
integrator 
current_sum 
external  output  2 
float  v 
float  i 
parameters  1 
L 

end 

i 

i 

name  capacitor 
inputs  4 
vO 
vl 
iO 

ii 

states  2 

v 

i 

implicit  2 
integrator 
current_sum 
external  output  2 
float  v 
float  i 
parameters  1 
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cn*_pha»e .  input 


C 

and 

i 

ntm*  resistor 
inputs  4 
vO 
vl 
iC' 
il 

implicit  2 
ohms_law 
curr«nt_sum 
external  output  2 
float  v 
float  i 
parameters  1 
F. 

end 


name  voltage_source 
inputs  4 
vO 
vl 

10 

11 

implicit  2 

voltage_dif ference 
current_sum 
external  output  2 
float  v 
float  i 

external  input  1 
float  VO 

end 

# 

# 

name  current_source 
inputs  4 
vO 
vl 

10 

11 

implicit  2 
current__0 
current_l 
external  output  2 
float  v 
float  i 

external  input  1 
float  10 

end 

# 
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# 

name  diode 
inputs  4 
vO 
vl 

10 

11 

implicit  2 
diode_iaw 
current_sum 
external  output  2 
float  v 
float  i 
parameters  1 
Vd 
end 
] 
i 

name  switch 
inputs  4 
vO 
vl 

10 

11 

implicit  2 
switch_eqt 
current_sum 
external  output  2 
float  v 
float  i 

external  input  1 
switch  switch 
end 

I 

i 

name  pulse_switch 
inputs  4 
vO 
vl 

10 

11 

implicit  2 
switch_eqt 
current_sum 
states  1 
time 

external  output  3 
float  v 
float  i 
switch  switch 
parameters  4 
period 
duty_cycle 
t  on 
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t_of  f 
end 

i 

name  source 
inputs  1 
out 

implicit  1 
difference 
external  input  1 
float  in 
parameters  1 
scale 
end 

name  integrator 
inputs  2 

y 

implicit  1 
integ 

parameters  1 
tau 

states  2 
X 
Y 

end 
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APPENDIX  D 


MENU  DRIVER  CODE 
D.l  menu.c 


SEPSIP  uses  a  separate  menu  driver  program  for  the  utility  menu.  This  was  done  to 
allow  the  user  to  customize  the  utility  options  without  recompiling  SEPSIP.  By  editing  the 
file  sepsipjitil.menu,  the  utility  menu  can  be  modified  without  any  recompilation. 
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menu  .c 


/*  menu.c  */ 

/*  Norbert  H  Doarry 
5  March  1988 

This  program  is  a  universal  menu  driver.  It  requires 
that  another  file  exist  with  the  same  name  plus  an 
extension  of  .menu  This  second  file  is  a  text  file 
that  contains  the  program  header  and  all  the  menu 
information  in  the  following  format  : 

(  header  )  (  As  many  lines  as  you  would  like  as  long 

as  none  of  them  begins  with  ! ) 

!  (header  delimiter) 

string  (what  the  user  types  in  to  execute  the 
corresponding  menu  item) 
name  (name  of  menu  item) 

command  (program  or  command  to  be  executed) 

. . .  (This  3  line  sequence  repeated) 

!  (command  delimiter) 

If  more  than  one  command  is  given  the  same  character, 
the  first  one  on  the  list  will  be  executed. 

The  program  also  puts  the  following  command  at  the 
top  of  the  list  ! 

<3 

Quit 
exit  ( ) 

Thus  you  can't  use  a  q  or  !  for  a  character 

A  !  inputted  from  the  user  will  repeat  the  last 
command  executed. 

*****  VERSION  2.0  ******** 

Heavily  revised  to  include  the  following 

-  commands  can  be  up  to  10  characters  long 

-  arguments  can  be  passed  to  the  commands 

-  arguments  can  be  passed  to  the  program 


*/ 

♦include  <stdio.h> 
♦define  CHRLEN  81 
♦define  ARRLEN  21 

typedef  struct  Cmd 

{ 

char  string ( CHRLEN] ; 
char  name [CHRLEN] ; 
char  command [CHRLEN] ; 
struct  Cmd  ‘next; 

) 

CMD; 
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main (argc, argv) 
int  argc; 
char  **argv; 

( 

char  comm ( CHRLEN ] ;  /*  nama  of  this  program  (minus  path)*/ 

char  command [CHRLEN] ;  /*  nama  of  this  program  (with  path)  */ 

char  ini ina [CHRLEN] ; 

char  line (CHRLEN); 

char  outline [CHRLEN] ; 

char  laat_command [ CHRLEN ] ; 

char  last_all [CHRLEN] ; 

int  i, j, numcmd, flag,  len; 

FILE  *in; 
char  ch; 

CMD  cmd,  *cptr; 
char  *calloc(); 


atrcpy (command, argv ( 0] ) ; 
strcat  (command, " .menu" ) ; 
len  “  atrlen (argv [ 0 ]  )  ; 

for  (i«len;  ((i  !■  -1)  &&  argv(0](i]  !»  '/')  ;  i — ); 
i++; 

for  (  j  «  0  ;  i  <®  len  ;  !+-♦ ) 
comm  [  j++]  «■  argv[0][i]; 


if  ((in  «=  f  open  (command,  "r")  )  "  NOLL) 

{ 

printf ("Can' t  find  %a\n" , command) ; 
exit  ( ) ; 

) 

inline  10]  =  NOLL; 

while  ( (fgets (inline, CHRLEN, in)  !-  NOLL)  &&  inline(0]  !«  '!') 

{ 

inline [ (atrlen (inline)  -  1)]  ■  NOLL; 
puts (inline) ; 

) 

cptr  “  &cmd; 
cptr->next  «•  NOLL; 

while  (1) 

{ 

/*  get  command  string  */ 

if  (fgets (Inline, CHRLEN, in)  «=  NULL) 
break; 

strstrip (inline) ; 
if  (inline (0]  «  '!')  break; 
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ini i n* (11]  ■  NULL  ;  /*  limit  to  10  oharaoteta  long  */ 

atropy (cptr->atring, inlina) ; 

/*  gat  command  nama  */ 

if  (fgata (inline, CHRLIN, in)  »  NULL) 
break; 

atratrip (inlina) ; 

atropy  (aptr->name, inlina) ; 

/*  gat  command  exectution  atring  */ 

it  ( fgata (inlina, CHRLEN, in)  ••  HULL) 
braak; 

atratrip (inlina) ; 

atropy (aptr->oommand, inlina) ; 

/*  allocate  new  CMD  atruoture  */ 

optr->naxt  -  (CMD  *)  oalloo ( (unaignad)  1  ,  aiaaof (CMD) ) ; 

cptr  ■*  cptr->next; 
cptr~>next  ■>  NULL; 

) 

atropy  (aptr->atring,  "q") ; 
jtrepy  (cptr->nama, "Quit" ) ; 
atropy (cptr->command,  "exit  <)  ")  ; 

atropy  (laat_command, omd. atring) ; 
atropy (laat_all, omd. atring) ; 

inlina (0]  -  NULL; 

for  (i  «  1  ;  i  <  arge  ;  i++) 

( 

atroat (inlina, argv(i) )  ; 
atroat (inlina,  "  "); 

) 

flag  -  (inlina [0]  !-  NULL)  ?  1  i  0; 

while  (1) 

( 

if  (flag  —  0) 

( 

printf("\n  %a  Opt iona i \n\n" , comm) ; 

for  (cptr  -  4'omd  ;  cptr  !«  NULL  ;  cptr  «  cptr~>next) 
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printfC  'ion  it  %a\n",  eptr->atring,  optr->name)/ 
printfC  Enter  Option  t  "}/ 
gets (inlina) / 
atratrip (ini in*)  ; 

/*  aee  if  ahould  repeat  last  command  */ 

if  (atromp (inline, " I  I ")  ■■  0) 
atrcpy  (inlina, laat_all) ; 

•  la* 

at ropy (laat_all, inline) / 


/*  atrip  off  command  from  argument*  */ 

for  (i  -  0  /  inlina ( i]  I-  NULL  ((  inlina|i]  I-  »  '  tt 
inlina(i]  !■  ' \t'  ;  i++) 

( 

lina [i]  -  inlina  ( i  ] ; 
inlina [ i )  -  '  ' j 
I 

lina [ i }  -  NULL/ 
stratrip (inlina) ; 

/*  aaa  if  its  an  exclamation  marker  ,  if  ao,  oopy  last  command  */ 

if  (atromp (lina, " t ")  ■«  0  | |  atromp (lina, " M ")  ■■  0) 
atrcpy (lina, last_aommand) ; 

/*  find  tha  proper  command  */ 

for  (cptr  -  Scmd  ;  cptr  !•  NULL  ;  optr  «  cptr->next) 
if  (strcmp (aptr->atring, line)  —  0)  break; 

/*  continue  if  didn't  find  tha  command  */ 

if  (cptr  —  NULL) 

( 

flag  «  0; 

printf("\n  ***  Command  Not  Found\nM); 
continue ; 

) 


/*  quit  if  cptr->next  is  NULL  */ 

if  (cptr->next  »■  NULL) 
exit  ()  ; 

/*  manufacture  the  syatam  call  */ 

at rcpy (out  line , cptr->command ) ; 
strcat (outline,  "  "); 
street (outline, inline) ; 
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/*  update  laat_oommand  */ 
atrapy (laat_aonmand, optr->atring) ; 

/*  print  message  if  flag  ■  1  */ 

if  (flag  »»  1)  print£("\n  Executing  i  %a\n\n",  outline) ; 

/*  axaout*  tha  ayatam  call  */ 
ayatem(outline) ; 

/*  aaa  if  flag  ia  aat  */ 
if  (flag  •»  1)  axit<) j 

) 

) 

/*  stratrip  */ 

/*  atrstrip  atripa  a  atring  of  leading  and  trailing  apacaa  and  tabs  */ 

stratrip  (a ) 
char  *s; 

( 

int  i, j; 

/*  find  first  non  space  or  tab  */ 

for  (i  -  0  ;  a{i)  —  '  '  II  a(i]  -*=  '\t'  ;  i++)  ? 

/*  copy  atring  */ 

for  (j  »  0  ?  a [ i ]  !»  NULL  ;  s[j++]  -  s(l++]); 

s(j]  =  NULL; 

/*  delate  trailing  spaces  and  tabs  and  Cr*/ 

for  (j  -  strlen(s)  -  1  ;  s(j]  *•=  '  '  | |  s[jj  -=  '\t'  | | 

s  [  j]  —  ' \n'  ;  a [ j  —  ]  -  NULL) ; 

) 
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D.2  sepsip  util. menu 

The  executable  code  for  the  menu  driver  listed  in  the  previous  section  is  in  the  file 
sepsip_util.  The  menu  text  must  therefore  be  located  in  the  file  sepsip_utit.menu  which  is 
listed  here: 


Editor  -> 

/mit  / 13 . 4 1  l.'sepsip.'emacs_ 

P 

Plotting  ->  No.rplot 

/mit  / 1 3 . 4 1  l/menu,  _::t  errt,  /mit /13 . 4 1  l/norplot/'Norplot 

? 

List  Directory 
Is  -al 

Execute  System  Command 
/mit /1 3 . 4 1 1 /menu  'sys 

+ 

Screendump  to  Default  Printer 
xwd  |  Mpr  -device  ps  |  lpr 
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PORTABILITY  CONSIDERATIONS 

In  the  development  of  SEPSIP,  portability  considerations  played  a  major  influence.  A 
number  of  SEPSIP’s  attributes  and  its  structure  are  a  direct  result  of  the  desire  to  be  able  to 
easily  transport  the  source  code  to  other  computer  systems.  There  are  however,  several  files 
that  may  need  to  be  edited  for  proper  operation  on  other  systems: 
fileoptions.c 

The  function  change_directory()  may  require  modification  on  systems  not  using 
the  UNIX  operating  system.  The  routine  presently  makes  one  system  call  to  pwd 
to  list  the  present  working  directory.  Furthermore,  the  system  library  function 
chdir()  may  not  be  available  on  all  systems.  Eliminating  the  contents  ofthis  routine 
w ill  only  affect  the  change  directory  option  of  the 
sepsip.c 

The  beginning  the  file  sepsip.c  contains  two  define  directives  that  are  system 
dependent.  These  statements  and  their  present  assignment  are: 

#define  DIR  "Is  -al" 

#define  CMD  "/mit/13.411/sepsip/sepsip_utH" 

DIR  is  a  string  containing  the  system  command  for  listing  the  current  directors'. 
CMD  is  the  path  and  name  of  the  menu  driver  for  the  utility  option. 
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SEPSIP  SOURCE  CODE 
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■cpsip. oon 


SEPSIP . CONFIGOR 

Norbert  H.  Doerry 
27  March  1989 


This  is  the  latest  configuration  of  SEPSIP  as  of  19  April  1989 
Version  1.0  of  27  March  1989 


check_name . c 

check  name ( ) 


1  March  1989 


dump_data.c  13  March  1989 

dump_data ( ) 

dump_device . c  15  March  1989 

dump_device ( ) 

edit_simulate . c  10  April  1989 

edit_simulate () 
edit_time ( ) 
edit_jacob ( ) 
edit_uisplay ( ) 

delete_jpv  ( ) 
add_jpv  ( ) 
edit_ref ( ) 
split_elm ( ) 
split_ref ( ) 


elm_jacob.c  6  March  1989 

elm_jacob ( ) 

f ile_options . c  19  April  1989 

f ile_options ( ) 
write_sim ( ) 
read_sim { ) 
write_init ( ) 
load_init ( ) 

change_directory ( )  ***  this  routine  is  system  dependent  *** 


gauss_eliminate . c  14  February  1989 

gauss_eliminate ( ) 


integ.c  18  October  1988 

integ  { ) 

ioliba.c  25  March  1989 

stof a  ( ) 
stoda  <). 
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sepsip.con 


Stofa ( ) 

Stoda () 
getflta  () 
f getflta ( ) 
parse  ( ) 

Parse  ( ) 
suctolc  () 
slctouc  ( ) 
strcmpa ( ) 
strncmpa ( ) 

«trsplit ( ) 
strstrip ( ) 
strextract  { ) 

***  See  file  "ioliba.help"  for  details  *** 

load_device . c  22  October  1988 

load  device  () 


load_element . c 

load_element { ) 

load_initial . c 

load_initial ( ) 
open_include ( ) 
read_init ( ) 
read_ext_init () 
i  ad_node_voit ( ) 

load_network . c 

load_network ( ) 

load_simulation . c 

load_simulation ( ) 
read_value ( ) 
read_dispJ  ay ( ) 
read_external () 
read_reference ( ) 
set_def aults ( ) 

make_jacobian.c 

make_ jacob ( ) 

print_network . c 

print_network ( ) 
line_counter ( ) 

read_device .c 

read_device ( ) 

read_element . c 

read  element () 


9  January  1989 


20  January  1989 


26  January  1989 


27  January  1989 


15  February  1989 


18  Jrnuary  1989 


6  March  1989 


25  October  1988 
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aepaip . con 


read_network.c  17  April  1989 

raad_network ( ) 
read_aub_node () 
count_char ( ) 
make_str ( ) 
f gets_multiple  ( ) 

aapaip.c  10  April  1989 

main()  ***  This  routine  is  system  dependent 

load_f ile  ( ) 

get_f ilename ()  ***  This  routine  is  system  dependent 
display_data ( ) 
utilities  ( ) 


aetup_aimulation . c  28  February  1989 

setup_simulation ( ) 


simulate. c  14  March  1989 

****  Revision  a:  29  March  1989 

run_simulation ( ) 
initialize_simulation () 
calc_impl icit ( ) 
implicit_error ( ) 
make_implicit () 
eheck_queue ( ) 
update_variables ( ) 
print_output ( ) 
print_matrix  < ) 


★  *  * 

★  *  * 
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/*  check_name,c  */ 

/*  Norbert  H.  Doerry 

1  March  1989 


*/ 

/*  This  routine  checks  all  the  element  names  and  node  names  to  ensure  that 
they  are  not  multiply  defined.  It  then  checks  the  subnode  names  for  each 
node  and  ensures  they  aren't  multiply  defined 

*/ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry. h" 

check_name (nn, nnode, ee, nelm, errflag) 

NODE  *  *nn ; 
int  nnode; 

ELEMENT  **ee; 
int  nelm; 
int  ‘errflag; 

( 

int  i,  j , k; 

/*  check  the  element  names  */ 

for  (i  =  0  ;  i  <  nelm  ;  i++) 

{ 

/*  see  if  another  element  has  the  same  name  */ 

for  (j  =  i  +  1  ;  j  <  nelm  ;  j++) 

{ 

if  (strcmp  (ee  [  i ] ->name,  ee  [  j J  ->name )  ■***  0) 

( 

printf("  ***  ERROR  :  ELEMENT  %s  multiply  def ined\n" , ee [ i) ->name ) ; 
♦errflag  =  1; 

) 

) 

/*  see  if  a  node  has  the  same  name  */ 

for  (j  =  0  ;  j  <  nnode  ;  j++) 

{ 

if  (strcmp  (ee  ( i  ] ->name,  nn  [  j  ]  ->name)  «==  0) 

( 

printf("  ***  ERROR  :  defined  as  both  ELEMENT  and  NODE\n", 

ee [ i ] ->name  j ; 

♦errflag  =  1; 

) 

) 


/*  check  the  node  names  */ 
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for  (i  -  0  ;  i  <  nnode  ;  i++) 

( 

/*  see  if  node  is  multiply  defined  */  , 

for  (j  =  i  +  1  ;  j  <  nnode  ;  j++) 

{ 

if  (strcmp  (nn  (i  ]  ->name,  nn  (  j] ->name)  =•=  0) 

{ 

printf("  ***  ERROR  :  NODE  %s  multiply  def ined\n" ,  nn [ i ] ->name) ; 
*errf lag  =  1; 

) 

} 

/*  check  the  subnodes  out  */ 

for  (j  =  0  ;  j  <  nn ( i ] ->nbr_subnode  ;  j++) 

{ 

for  (k  =  j  +  1  ;  k  <  nn [ i ] ->nbr_subnode  ;  k++) 

( 

if  (strcmp (nn [i] ->subnode [ j ] ->name, nn [i] ->aubnode [k] ->name)  0) 

( 

printf ( "  ERROR  :  SUBNODE  %s  :  %s  multiply  defined\n”, 
nn  [i] ->name, nn [i] ->subnode ( j] ->name) ; 

*errf lag  =  1; 

} 
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/*  commands. c  */ 

/*  29  November  198S 

Norbert  H.  Doerry 

This  file  contains  the  code  for  the  following  commands  of  SEPSIP: 

device_  summary 
display_device 
element_summary 
display_element 

*/ 

♦include  <stdio.h> 

#incl.ude  <math.h> 

♦include  "doerry. h" 


/*  Device  Summary  : 

This  routine  presents  a  list  of  all  the  available  devices.  If  the 
output  stream  is  stdout,  the  user  is  prompted  to  hit  the  return 
key  after  a  page  has  been  printed  out.  A  ' q'  will  terminate  the 
listing. 

*/ 

device_summary (dev, ndev, out) 

DEVICE  **dev; 
int  ndev; 

FILE  *out; 

( 

int  i, page, lasti, flag; 
char  inline [MAXCHAR]  ; 

fprintf (out, "\n\n  -  DEVICE  SUMMARY  - \n"); 

for  (i  *=  la . ’  v  =  flag  =  0,page  =  0  ;  i  <  ndev  ;  i++) 

( 


/*  see  if  should  start  a  new  page  */ 

if  (  i  %  (LINES_PER_PAGE  -  4)  — *  0  &&  i  !-  ndev  -  1) 

( 

page++ ; 

if  (flag  !=  0  fi&  out  stdout) 

{ 

printf("\n  Enter  <RETURN>  to  continue  :  "); 

gets ( inline )  ; 
strstrip(inline)  ; 

if  (inline(O)  «  '  q'  ||  inline(0]  'Q')  return; 
if  (inline(O)  «**  'b'  It  inline(O)  «  'B') 

( 

i  =  lasti  -  LINES  PER  PAGE  +  4; 
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if  (i  <  0)  i  -  0; 
page  --  2; 

if  (page  <  1)  page  *  1; 
laati  —  LINES_PER_PAGE  -  4; 
if  (lasti  <  0)  laati  ■  0; 

) 

else 

lasti  “  i; 


) 

flag  -  1;  /*  used  to  prevent  starting  of  new  page  */ 

fprintf (out, "\n\n  —  DEVICE  NAME  —  (PAGE  4d)\n\n'\ 

page) ; 

) 

/*  print  out  the  element  names  */ 

fprintf (out, "  %a\n", dev(i)->name) ; 

/*  see  if  at  end  of  listing  */ 

if  (  i  «■*  ndev  -  1  4&  out  «»  stdout) 

( 

printf ( "\n  SUMMARY  COMPLETE  i  Enter  <RETURN>  to  continue  i  ")/ 
gets (inline) ; 

if  (inline (0)  «  'b'  II  inline{0)  —  '  B'  > 

( 

flag  ■  0; 

i  «*  lasti  -  LINES_PER_PAGE  +  3; 
if  (i  <  0)  i  -  -1  ; 
page  -»  2; 

if  (page  <  0)  page  -  0; 
lasti  --  LINES_PER_PAGE  -  4; 
if  (lasti  <  0)  lasti  ■  0; 

) 

) 


) 


display_device (dev, ndev, inline) 

DEVICE  **dev; 
int  ndev; 
char  ‘inline; 

( 

char  inlin (MAXCHAR) ; 
int  i; 

/*  pull  off  device  name  if  it  is  there  */ 
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atratrip(lnlina) t 
inlin* (0)  •  '  ' i 
atratrip(inlina) ; 

if  (inlin*(0)  »  NULL) 

I 

/*  prompt  uaar  for  davio*  nam*  if  not  apaaifitd  on  command  line  •/ 

printf ("\n\n  Entar  DEVICE  NAME  i  ")/ 
g*ta(inlin) / 
atratfip(inlin)  ; 
if  (inilntO)  ■»  HULL)  raturn; 

) 

ala* 

atrcpy (inlin, inlin*) ; 


for  (i  «  0  ;  t  <  ndav  («  at  romp (dav ( i } «>nama, inlin)  !•  0  ;  ia  +  ) i 

it  (i  ■■  ndav) 

( 

printf  ("\n\n  ***ERROR  i  l#  do**  not  *Nlat\n\n", inlin) ; 
return; 

) 

pr int_d*vio* (dav ( i ) ,  atdout) ; 

printf  <"\n  DEVICE  DISPLAY  COMPLETE  i  Entar  <RETUAN>  to  oontinu*  i  " ) } 
gata  ( inlin) ; 


) 

*l*m*nt_sumn\ary  (a ,  nalm,  nut ,  lina) 
ELEMENT  **a; 
int  nalm; 

KILE  *  out ; 
char  ‘lina; 

( 

int  i , j, laat j (20) , paga, laati, flag; 
chat  inlin* (MAXCHAA) ; 


/*  atrip  off  firat  charactai;  of  lina  and  any  following  apaoaa  or  taka  */ 
stratrip ( lina) ; 
lina (0)  »  >  1  ; 
atratrip ( lina)  ; 


fprintf (out, "\n\n 


ELEMENT  SUMMARY  ---Sn"); 


to  firat  alaroant  */ 


j  *  0;  /*  pointer 

laat j (0)  »  0, 
paga  -  0; 


51 


e  unwinds,© 


(1*9  »  0/ 

fat  (1  ■  *  i  i  <  nolm  f  ia+) 
t 

if  <0  —  <UNE8_PERj;AUK  -  4)  I  I  i  —  0)  44  i  !-  nolm  -  1) 
I 

j  -  0 I 
P •«•+♦/ 

if  (flag  I*  0  44  out  atdout) 

< 


printf("\n  Enter  <RETURN>  to  eontinue  i  "> > 

9* to  (inline) > 
atratrip(inline)  i 

if  (inline (0)  •**  *  q*  II  inUno(O)  —  '  Q*  >  coturn; 
if  (inlino (0)  »  'b*  ||  inlinotO)  «  •»») 

I 

page  ■  (page  <■  2)  ?  1  i  pago  -•  2f 
i  »  last j (page  -  1)/ 

) 

ol»0 

I 

loot  j | page  -  1)  -  if 

) 

) 

flog  »  If  /*  provonta  prompting  for  return  for  firat  pago  */ 


) 


fprintf (out, "\n\n 
pago) ; 


ELEMENT  NAME  —  (PAGE  %d)\n\n", 


/*  print  out  tho  olomont  namoa  •/ 

if  (lino (0)  —  'a'  II  a (nolm  -  1  -  i]->flag  —  1) 

( 

fprintf  (out , "  *20a  II  t-30a", o (nolm  -  1  -  i)->namo, 
o(nolm  -  1  -  i) ->device->name) ; 

if  <o(nolm  “1  -  i]->flag  »■  0) 

fprintf (out, "  ***  Not  Uaod  ***\n”)f 

olao 

fprintf (out, "\n") ; 
j  +  +  f 

) 


/*  aoo  if  at  and  of  listing  */ 

if  (  i  «•  nolm  -  1  tt  out  »«  atdout) 

( 

printf("\n  SUMMARY  COMPLETE  l  Enter  <RETURN>  to  continue  :  "); 
gats ( inline ) ; 

if  (inline(0]  -■  'b1  |l  inline[0)  «•«  'B') 
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flag  -  0; 

pig*  “  (page  <■  2)  ?  0  i  paga  —  2; 
i  »  laatjfpaga]  -  1; 

j  *  LINES_PER_PAGE  -  4; 


diaplay_alamant (a, nalm, inline, q, nq) 

ELEMENT  *»•/ 
int  nalm; 
ohar  ^inline; 

QUEUE  *  *q; 
int  nq; 

( 

ohar  inlin [MAXCHAR] ; 

int  i; 

/*  pull  off  alamant  nama  if  it  ia  there  */ 

atratrip(inlina) ; 

inlina(OJ  ; 

atratrip  (inline) ; 

if  (inlina ( 0 )  —  NULL) 

( 


/*  prompt  uaar  for  alamant  nama  if  not  specifiad  on  command  lino  */ 

printf ( "\n\n  Entar  ELEMENT  NAME  ! 

qeta (inlin) ; 

atratrip (inlin)  ; 

if  (inlin [0]  »»  NULL)  return; 

) 

else 

atrcpy (inlin, inline) ; 


for  (i  «*  0  ;  i  <  nelm  &&  atrcmp (e ( i ) ->name , inlin)  0  ;  i  +  +  )  ; 

if  (i  ““  nelm) 

( 

printf ("\n\n  ***ERJR0R  :  %a  doea  not  exiot\n\n", inlin) ; 
return; 

) 


print_e lament (a ( i]  ,  atdout,  q,  nq,  i)  ; 

) 
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pi int_element <e,  out, q, nq, eptr) 

ELEMENT  *•; 

FILE  *out; 

QUEUE  *  *q; 
int  nq; 

int  eptr;  /*  pointer  in  element  array  */ 

{ 

char  inline (MAXCHAR) ; 
int  i,  j, k, 1/ 

fprintf (out, "\n\n  Element  i  1-20*  <>  Device  »  1-20s\n\n", 
*->name,  *->device->name) ; 
fprintf (out , "  Element  Parameters  i  \n\n") ; 

for  (j  ■  0, i  «  0  ;  j<  e->devioe->nbr_param  ;  i++, j++) 

( 

fprintf (out , "  %20s  t  %10.5g\n", 

e->device->param_nam« ( j J  ,  e->con.param( j] > ; 


/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

if  (il  (LINES_PER_PAGE  -  4)  —  0  &&  i  !-  0  6 &  ovit  —  stdout) 

( 

printf("  Hit  <Return>  to  continue  !  "); 
gets (inline) ; 
atrstrip(inline) ; 

if  (inline  [0]  «**  '  q'  II  inline  (0)  ■»»  'Q')  return; 
if  (inline(O)  ”=  'b'  II  inline[0]  ■*=  'B') 

( 

j  -=  2  *  (LINES_PER_PAGE  -  4 )  ; 

if  (j  <  0)  j  -  0; 

) 


if  (e->con . nbr_ext_out  >  0) 

( 

fprintf (out, "\n  External  Output  Variables  :  \n\n"); 
i++; 

for  (j  «  0  ;  j  <  e->con . nbr_ext_out  ;  j++,i++) 

( 

fprintf (out , "  %20s  :  %12g\n",  e->device->ext_out_name [ j ) , 
e->con . ext_out [ j] ) ; 

t*  if  (e->con . awitch_ext_ out [ j ]  =«  0) 

fprintf  (out , "OFF\n" )  ; 

else 

fprintf (out, "ON\n") ;  */ 
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/*  after  (LINES_PER_PAGE  -  4)  linea,  wait  for  uaer  to  hit  return 
before  continuing  */ 

if  (i%  (LINES_PER_PAGE  -  4)  »■  0  «  i  l>  0  ((  out  —  atdout) 

( 

printf("  Hit  <Return>  to  continue  :  "); 
geta  (inline ) ; 
atrstrip(inline) ; 

if  (inline  (0]  ■■  'q'  |(  inline  [0]  -■>  'Q')  return; 
if  (inline ( 0]  —  'b'  ||  inline(O)  —  'B') 

( 

j  —  2  *  < LINE S_PER_P AGE  -  4); 

if  (j  <  0)  j  -  0; 

} 

) 

) 


if  (e->con.nbr_ext_in  >  0) 

( 

fprintf (out, "\n  External  Input  Variablea  :  \n\n"); 
fprintf (out, "  Time  Variable  i  Value\n" ) ; 

i++ ; 


/*  print  out  initial  values  of  all  the  External  Input  Variables  */ 

for  (j  “  0  ;  j  <  «->con .nbr_ext_in  ;  j++, i++) 

( 

fprintf (out, "  %8.3f  a  %-20s  :  %f\n",  0.0  , 
e->device->ext_in_name ( j )  , 
e->con . init_ext_in ( j] ) ? 

/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  tor  user  to  hit  return 
before  continuing  */ 

if  <i%  (LINES_PER_PAGE  -  4)  0  Si  i  !»  0  &&  out  atdout) 

{ 

printfC  Hit  <Return>  to  continue  i  "); 
gets (inline) ; 
atrstrip (inline) ; 

if  (inline [0]  '  q'  ||  inline (0)  'Q')  return; 

if  (inline (0]  —  'b'  ||  inline [0]  —  ' B ' ) 

( 

j  —  2  *  <LINES_PER_PAGE  -4); 

if  (j  <  0)  j  -  0; 


) 
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print  out  entries  for  this  element  in  QUEUE  array  */ 

for  j  i  -  0  ;  j  <  nq  ;  j++) 

I 

if  (q(j)->elm  !»  eptr) 

continue;  /*  not  this  element  */ 

fprintf (out, "  %8.3£  it  %-20s  i  %f\n",  q(j]->time, 

e->device->ext_in_name [ q [ j] ->var)  ,  q [ j ] ->value) ; 

/*  after  (LINES_PER__PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

i++; 


if  (i»  (LINES  PER  PAGE  -  4)  —  0  fi£  i  !-  0  & 6  out  --  stdout) 


printf("  Hit  <Return>  to  continue 
gets  ( inline ) ; 
strstrip ( inline ) ; 

if  (inlinefO]  —  ' q'  ||  inlinefO] 
if  (inline (0]  ==  'b'  ||  inlinefO] 


;  " )  ; 


mm  ' Q>  )  return; 
==  'B' ) 


j  -a  2  *  ( LINE S_PER_P AGE  -  4); 
if  (j  <  0)  j-0; 

) 

) 


> 


if  (e->con . nbr_inputs  >  0) 

( 

fprintf (out, "\n  Input  Variable  Initial  and  Present  Values  :  \n\n"); 

i++; 

for  (j  =  0  ;  j  <  e->con . nbr_inputs  ;  j++, i++) 

( 

fprintf  (out ,  "  %20s  :  %12g  s  %12g\n’',  e->device->input_name  [  j ]  , 
e->con .  init._in  (  j  ]  ,  e->con .  in  [  j  ]  )  ; 

/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

if  (i*  (LINES_PER_PAGF,  -  4)  ■■  0  SS  i  !=  0  &&  out  *=  stdout) 

< 

printf("  Hit  <Return>  to  continue  :  "); 
gets (inline) ; 
strstrip  (inline) ; 

if  (inlinefO]  «*=  '  q'  If  inlinefO]  ==  'Q')  return; 
if  (inlinefO]  ««  'b'  ||  inlinefO]  ««  '  B '  ) 

( 

j  —  •  2  *  ( LINE S_PER_P AGE  -  4); 
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if  (j  <  0)  j  -  0; 

) 

} 

} 


if  (e->con . nbr_states  >  0) 

{ 

fprintf (out, "\n  State  Variable  Initial  and  Present  Values  :  \n\n"); 
i++; 

for  (j  “  0  ;  j  <  e->con . nbr_states  ;  j++, i++) 

( 

fprintf (out, "  %20s  i  %12g  i  %12g\n",  e->devioe->state_name [ j] , 
e->con  .  init__state  (  j] ,  e->con  .  state  ( j] )  ; 

/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

if  (it  (LINES_PER__PAGE  -  4)  —  0  &&  i  !«  0  &&  out  »«  stdout) 

{ 

printf("  Hit  <Return>  to  continue  :  "); 
gets (inline ) ; 
stratrip(inline) ; 

if  (inline[0]  ==  '  q'  It  inline[0]  ■*  'Q')  return; 
if  (inline[0]  «•«*  'b'  II  inline[0]  'B') 

( 

j  -*=  2  *  (LXNES_PER_PAGE  -  4); 

if  (j  <  0)  j  =  0; 

} 

) 

I 


if  (e->con . nbr_implicit  >  0) 

( 

fprintf (out , "\n  Implicit  Variable  Present  Values  :  \n\n") ; 
i++; 

for  (j  —  0  ;  j  <  e->con.nbr  implicit  ;  j++, i++) 

{ 

fprintf (out , "  %20s  s  %12g\n",  e->device->implicit_name ( j] , 
e->con . implicit ( j  J )  ; 

/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

if  (it  <LINES_PER_PAGE  -  4)  —  0  &&  i  !■=  0  &4  out  -=  stdout) 

( 

printf("  Hit  <Return>  to  continue  :  ”); 
gets (inline) ; 
str st rip (inline) ; 
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if  (inline  (O'J  =»  '  q'  ||  inline  (0}  ““  'Q')  return; 
if  (inline (0]  —  'b'  ||  inline(0J  —  'B') 

( 

j  —  2  *  (LINES_PER_PAGE  -4); 

if  (j  <  0)  j  “  0; 

) 

> 


) 

) 

if  (e->con.nbr_inputs  >  0  S&  e->con . nbr_implicit  >  0) 

( 

fprintf  (out, "\n  Jacobian  Matrix  Present  Values  :  \n\n") ; 
i++; 

for  (1=0;  1  *  5  <  e->con.nbr_inputs  ;  1++) 

( 

for  (j  =  0  ;  j  <  e->con .nbr_implicit  ;  j++  ,  i++) 

( 

for  (k  =  5  *  1  ;  k  <  e->con.nbr_inputs  &&  k  <  (1  +  1)  *  5  ;  k++) 
printf ("  %15g" ,  e->con . jacob_in [ j  +  e->con .nbr_implicit  *  k] ) ; 
printf ( "\n" ) ; 

/*  after  (LINES_PER_PAGE  -  4)  lines,  wait  for  user  to  hit  return 
before  continuing  */ 

if  (i%  <LINES_PER_PAGE  -  4 )  *=  0  &&  i  1 =  0  &£  out  ■=  stdout) 

{ 

printf  ("  Hit  <Return>  to  continue  s  "); 
gets (inline) ; 
strstrip (inline) ; 

if  (inline  [0]  =»=  'q'  ||  inline  [0]  ==  'Q')  return; 
if  (inline[0]  ==  'b'  ||  inline(0)  ==  'B') 

( 

j  -=  2  *  ( LINE S_PER_P AGE  -  4); 

if  (j  <  0)  j  =  0; 

) 

) 

) 

printf ("\n")  ; 

) 


) 


if  (out  ==  stdout) 

( 

printf ( "\n\n  ELEMENT  DESCRIPTION  COMPLETE  :"); 
printf ("  Enter  <RETURN>  to  continue  :  "); 
gets  (inline) ; 

) 

fprintf (out, "\n") ; 

) 
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print_device_description (k, name, param, nbr, out, types, flag) 

int  *k; 

char  *name; 

char  **param; 

int  nbr; 

FILE  *out ; 
int  ‘types; 
int  flag; 

{ 

int  i; 

char  inline [MAXCHAR] ; 

static  char  *typ[]  * 

( 

"Boolean" , 

"Switch", 

"Integer", 

"Float" 

)  ; 


/*  see  if  the  number  of  elements  to  print  is  zero  */ 
if  (nbr  <=  0)  return  0; 

/*  see  if  new  page  before  the  listing  */ 

if  (*k  +  5  >  LINES_PER_PAGE  &&  out  *•»  stdout) 

< 

*k  =  0; 

printf("\n  Enter  <RETURN>  to  continue  :  "); 
gets (inline) ; 
strstrip (inline) ; 

if  ( inline [ 0  J  —  ' q'  ||  inline(0]  ==  'Q') 
return  1; 

) 

fprintf (out , "\n  %s\n",name); 

for  (i  =  0  ,  (*k)  +■>  2;  i  <  nbr;  i++  ,  (*k)++) 

{ 

if  (flag  ==  0  M  types(i]  <  0  | !  types[i]  >  3) 
fprintf (out  ,  "  %s\n" , param(i] ) ; 

else 

fprintf (out  ,  "  %-7s  i  %s\n" , typ (types ( i )] ,  param[i}); 

if  <*k  +  2  ==  LINES__PER_PAGE  &&  out  «==  stdout) 

( 

*k  =  0; 

printf("\n  Enter  <RETURN>  to  continue  :  "); 
gets  ( inline ) ; 
strstrip(inline)  ; 

if  (inline[0)  ==  'q'  ||  inline[0]  ==  'Q') 

return  1; 

) 
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\ 

return  0/ 

) 

print  device  (d,  out ) 
MCVJCK  *d; 

rn.K  *out; 

I 

int  i,k; 

ohar  inline  (MAXCHAR) ; 


fprintf  (out,  "\r\  Device  43d  i  4a\n", d->type, d->name) ; 

k  «  2/ 

if  (printMdevice_de»cription(4k, "  Input  Variables", 

d->input_name, d->nbr _i nput * ,  out , 4i ,  0 )  "»  1) 

return; 

if  (print_deviae_desaription  (4k,  "  State  Variables", 

d~>atate_name, d->nbr_states,  out,  4i, 0)  •>«  1) 

return; 

if  (pi int_device_deacription (4k , "  Implicit  Variables", 

d->implioit_name, d->nbr_implioit , out, 4i, 0)  «■« 

return; 

if  (print _device_ description (4k, "  External  Input  Variables”, 

d->ext_in_name , d->nbr_ext_in,  out, 
d->type_ext  in,l)  ■■  1) 

return; 

if  (prlnt_device_doscription (4k,  "  External  Output  Variables", 

d->ext_out_name, d->nbr_ext_out , out, 
d->type_ext_out, 1)  »-  1) 

return; 


if  (print_device_description (4k , "  Parameters", 

d->par am_name ,  d->nbr_param,  out ,  4 i ,  0 )  ■  **  1) 

return; 


) 
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/*  doerry.h  */ 

/*  Norbert  H.  Doerry 
28  Sept  88 
modified  9  Jan  89 
modified  IS  Feb  89 

This  include  file  is  designed  to  test  the  configuration  of  interface 
structures  for  my  thesis. 

The  variables  are  divided  into  the  following  categories: 

input  variables  i  variables  that  are  connected  to  system  nodes.  These 

variables  are  all  implicitely  defined. 

state  variables  :  variables  that  represent  the  internal  state  of  the 

devices.  This  is  not  a  'state'  in  the  strict  sense 
of  the  term.  It  is  instead  a  variable  whose  value 
must  be  'remembered'  to  determine  the  next  state 
of  the  device.  The  'old_atate'  variables  are  the 
value  of  the  state  variables  during  the  last 
time  step. 

implicit  variables  :  variables  that  are  driven  to  zero  in  the  Newton 

Raphson  method. 

external  inputs  i  variables  that  the  operator  will  be  allowed  to  change 

directly  during  the  execution  of  the  simulatiion. 

These  inputs  can  be  of  the  following  types  : 

Boolean  (  True  or  False) 

Switch  (  On  or  Off) 

Integer 

Floating  Point 

external  output  :  variables  that  the  operator  can  select  to  display  during 

the  simulation  or  have  saved  to  a  file  for  plotting 

parameters  :  These  are  the  specific  parameters  for  a  device 

which  may  be  different  for  different  elements 

There  are  also  several  other  definitions  that  must  be  made 

DEVICE  :  is  a  model  of  an  electrical  machine,  device,  or  node. 

(i.e.  an  Inducton  Motor  Model  would  be  a  device) 

ELEMENT  :  is  an  actual  circuit  element  of  type  DEVICE.  Note  that 
there  can  be  multiple  ELEMENTS  of  type  DEVICE. 

(i.e.  a  3  HP  induction  Motor  would  be  an  element  and  a 
2000  HP  induction  Motor  would  be  another  element  of  the 
same  type . ) 
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*/ 


# define  MAXCHAR  81 
♦define  PI  3 . 1*J  15926536 
♦define  LINES  PER  PAGE  25 


/*  define  types  */ 

♦define  BOOLEAN  0 
♦define  SWITCH  1 
♦define  INTEGER  2 
♦define  FLOAT  3 


typedef  struct  Connect 

{ 

int  nbr  inputs; 
int  nbr_states; 
int  nbr_imp.licit; 
int  nbr_ext__in; 
int  nbr_ext_out; 
int  nbr_pnram; 


/*  number  of  input  variables 

/*  number  of  internal  states 

/*  number  of  implicit  equations 

/*  number  of  external  input  variables 


/* 

/* 


number  of  external  output  variables 
number  of  parameters 


int  *type_ext_in? 
int  *type_ext_out ; 
int  *imp_index; 


) 

CONNECT; 


*/ 

*/' 

*/ 

*/ 

V 


double 

♦in; 

/* 

pointer 

to 

array 

of 

input  variables 

*/ 

double 

*state ; 

/* 

pointer 

to 

array 

of 

state  variables 

*  / 

double 

*old_state; 

/* 

pointer 

to 

array 

of 

'old'  state  variables 

*/ 

double 

♦implicit ; 

/* 

pointer 

to 

array 

of 

implicit  variabales 

*/ 

double 

*ext_in; 

/* 

pointer 

to 

array 

of 

external  input  variables 

*/ 

double 

*ext_out; 

/* 

pointer 

to 

array 

of 

external  output  variables 

V 

double 

♦param; 

/" 

pointer 

to 

array 

of 

parameters 

*/ 

double 

♦init  state; 

/* 

pointer 

to 

array 

of 

initial  values  for  states 

*/ 

double 

*init_ext  in, 

!/* 

pointer 

to 

array 

of 

initial  values  for  ext_in 

V 

double 

*init_in; 

/* 

pointer 

to 

array 

of 

initial  values  for  inputs 

*/ 

double 

*  jacob_in; 

/* 

pointer 

to 

jacobian  matrix  of  implicit  variables 

with  respect  to  input  variables  */ 
int  jacob_switch;  /*  "  1  if  jacobian  calculated  by  function 

-  0  if  jacobian  not  calculated  by  function  */ 
/*  pointer  to  array  of  external  input  types  * / 
/*  pointer  to  array  of  external  output  types  */ 
/*  pointer  to  array  of  indexes  for  itab  array  */ 


typedef  struct  Element 
( 


int  serial; 

/* 

serial  number  of  element 

*  ' 

char  *name; 

/* 

pointer  to  name  of  element 

*/ 

struct  Connect  con; 

/* 

connection  pointers  and  counters 

*/ 

struct  Device  ‘device; 

/* 

pointer  to  device 

*/ 

int  flag; 

/* 

if  flag  -  1,  element  is  used  in  Network 
if  flag  “  0,  element  is  not  used 

*/ 

) 

ELEMENT; 
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typadaf  atruot  II* via# 


int  type; 

/* 

typ#  of  d#vio#  cod# 

*/ 

int  (»f><>; 

/» 

•tarting  addt##a  of  routine  fer  thia  typ# 

*; 

char  ‘name; 

/* 

pointer  to  nam#  of  device 

int  nbr_inputa; 

/* 

number  of  input  v#riabi#a  (default) 

*/ 

int  nbr^atatea; 

/* 

number  of  internal  etetee  (default) 

int  nbr_implicit; 

/* 

number  of  implicit  equation# 

*/ 

int  nbr_#xt^in; 

/* 

number  of  external  input  variable# 

•t 

int  nbr_*xt_out ; 

/* 

number  of  external  output  variabla# 

*y 

int  nbrjparam; 

/• 

number  of  parameter# 

v 

oh#r  ••input_nam#; 

/* 

pointer  to  en  errey  of  at  ring#  holding  the 
namea  of  the  input  variable# 

*/ 

ohar  »*#tat#_nam#/ 

/» 

pointer  to  an  array  of  atringa  holding  th* 
name#  of  the  atatea 

*/ 

char  **impl ioit_name; 

pointer  to  an  array  of  atringa  holding  the 
namea  of  the  implicit  equation# 

*  / 

char  **#xt_in_nam#j 

/* 

pointer  to  an  array  of  atringa  holding  the 
namea  of  the  external  input  variable# 

* 

chav  **axtmout^nam#; 

/* 

pointer  to  an  array  of  atringa  holding  th# 
name#  of  th#  axtarnal  output  variablea 

N 

char  **param  nam#; 

j  * 

pointer  to  an  array  of  atringa  holding  th# 
namea  of  the  parameter# 

•/ 

int  * typ#_#xt _tn; 

t* 

pointer  to  array  of  external  input  typea 

int  *typ#_#xt  out ; 

1 

DEVICE; 

i* 

pointer  to  errey  of  external  output  type# 

*  1 

typed* f  lUuot  Nod# 

( 

char  *nam*; 
int  nbr_»ubnod*; 

■truat  Subnod#  ** aubnod*; 
struct  Nod*  *le«t; 

) 

NODI'; 


/*  n#n\#  of  nod# 

t*  number  of  eubnadea 

/*  array  of  pointer*  to  aubnod** 

/*  point#*  to  l##t  Nod#  atruotur* 


*  i 

*/ 

• 


typ#d#f  #truot  Subnod# 

I 

int  type; 

int  r*f_flag; 
doubi#  init_volt; 
chat  *nam*; 
int  nbr_conn*ct; 
char  **#i#w#nt; 
char  ‘'variable; 
int  *«lm_ptr; 
int  *v«i  ptr; 
struct  Subnod#  ‘last; 


/*  typ#  of  aubnod#  -  0  for  voit#g#  law 

-  1  for  currant  i«w  •/ 

/*  r#f  aubnod#  flag  *0  not  r#f  i  *1  la  r#f  */ 

/*  initial  valu#  of  voltage  if  required  */ 

/•  nam#  of  aubnod#  *,' 

/*  numb#r  of  connection*  at  aubnod# 

/*  array  of  #l#m#nt  nam#* 

/*  array  of  variable  nam#* 

/*  pointer  within  #l#m#nt  array  of  #l#m#nta  */' 

/*  pointer  within  input  array  ♦. 

i*  pointer  to  la»t  Subnode  Structure  * 


SliaNODfc; 


- 
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typ*d*f  atmat  H* 


ribs  Mm 

/*  present  stream 

V 

struct  itraam  Ptr  »la#t.) 

laat  atvaam 

V 

•■Mar  f  i  laname  |MAX«’MAP)  ( 

filename  af  stream 

*,/ 

int  linenbr; 

*  current  lint  nt»mb*i 

in  til*  •; 

typadaf  *t»uot  Queue 

i 

«tv«y  * 
vititHi  * 

I 

QURt'R i 


int  elm; 

f* 

int  van 

/  t 

double  value; 

* 

double  lima; 

/• 

a*  mat  Queue  ‘la**; 

ft 

p®int*»  fnr  wM@M  *l»m*nl  in  IM* 
pointer  for  wM*h  external  input 
«•¥  Value 

tim*  t*  ink*  un  naw  value 
painter  t#  last  Queue  structure 


typoiaf  itnioi  Simulate 
I 

double  dt  ) 
double  tmilW 
daub  1  •  tmax) 
double  time; 
in*  max  iteration; 
double  aonverge; 
double  delta; 
double  della  min; 
double  pi  in*  dt  ) 

I 

SJWl.M'1 it 


*  t  twt  inurement  in  aeoanda 

*  alerting  t  ime  ~>t  aimulation 

*  maximum  time  »t  simulation 

*  present  time  of  aimulation 

*  maximum  number  of  iteration#  in  MR 

*  convergence  limit  for  Ml* 

*  percent  uliange  »f  variable  far  iaoobian 

*  minimum  change  at  variable  toi  laoebian 

*  tima  inurement  for  printing  variables 


typadaf  at  mot  Xtable 
I 


lilt 

nbr  ; 

•  number 

ol 

variabiaa  tied  to  tliia  variable 

• 

int 

•e; 

•  an  ay 

of 

alamant  indexes 

1 

int 

*  V) 

.  *  an  ay 

of 

input  variable  indaxaa 

* 

int 

•mu it ; 

.'•  array 

of 

multiplier*  for  variable* 

* 

1 

XThBU; 


typadaf  atruot  liable 
I 

in*  e; 

*n*.  t; 

I 

I  TADl-S ; 


*  imitN  to  element  array  * 

*  index  to  implicit  variable  array  * 


typed# f  it  i  u.:t  Print  var 
I 

rnt  ej 
1  lit  v ; 
rnt  typ; 


index  *>'  element  01  node  aiiay 

index  to  vin»l>)»  or  aubnmle  array 

type  of  v*i  it'le  »  0  fo»  external  output 


«**•»» 


•  l  tar  aiitainai  input 

•  i  tat  Netft  Vaitafa  */ 

•ttuut  flint  vat  *n»nt i  palntat  te  na*l  fPIHT^VMi  atiuutura  V 

I 

fflNT  VMM 
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dump^dala <v 


/*  dump^dats.e 
/*  Norbarfc  H>  Boarry 

13  Naioh  101)) 

This  routine  dumps  the  eurrent  state  of  ths  simulation  to  a  fils  or 
tha  sotaan 


•include  <«tdio.h.'' 

•include  <math.h> 

•ineluda  "doerry.h" 

dump__data  (out ,  as,  nalm,  nn,  nnoda,  qq,  nq,  simulate, pv,  xtab,  nxtab,  itsb,  nitab) 
FILE  ‘out; 

ELEMENT  »*aa; 
int  nalm; 

NOPE  **nn; 
int  nnoda; 

QUEUE  *  *qq; 
int  nq; 

SIMULATE  simulata; 

PRINTVAR  * pv ; 

XTABLE  **xt.«b; 
int  nxtab; 

I TABLE  *  *  it  *b ; 
int  nitab; 

( 

int  i,  j, k, 1; 

doubla  *  •  icob,  *  implicit , *var , *imp; 
char  *calloc(); 

PRINT_VAJ  *t*mp; 
doubla  iriplicit_arror  ( )  ; 

/*  print  out  alamant  data  */ 

for  (i  0  ;  i  <  nalm  ;  i  +  +) 

( 

/*  print  out  header  */ 

fprintf (out, "  ELEMENT  :  $-20s  <>  SERIAL  :  %3d  <>  DEVICE  :  %-20s  ", 
ee  (  i]  ->nama,  ee{i]->seriel,ee[i]  ->devica->namo) ; 
if  (a« ( i) ->f lag)  fprintf (out, "\n") ; 
else  fprintf (out, "<>  ***  UNUSED  ***\n”); 

/*  print  out  tha  parameters  */ 

if  (ee ( i) ->con . nbr_param  >  0) 

( 

fprintf  (out,  ”\n  PARAMETER  ValuesW); 

for  (j  =  0  ;  j  <  ee [i] ->con . nbr_param  ;  j++) 

( 

fprintf (out , "  %20s  %15g\n", 
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•  •  (i)  ->deviae->param_name  ( j) , 
ee  ( i  ]  ~>aon .  param  [  j  J ) ; 

) 

I 

/*  print  out  input  variables  */ 

if  (ee (i] ->con.nbr_inputa  >  0) 

( 

fprintf {out, "\n  INPUT  Variable  Initial  and  Praaant  Valuea\n") 

for  (j  -  0  ;  j  <  •• [i] ->oon .nbr_inputa  ;  j++) 

( 

fprintf (out, "  %20a  :s  %15g  ti  %15g\n", 

ee  ( i] ->device->input— name [ j 1 , 

«e [ i ] ->con . init_in [  j) ,  aa [i ] ->con . in ( j] ) ; 

) 

) 


/*  print  out  the  state  variables  */ 

if  («« ( i] ->con. nbr_atates  >  0) 

( 

fprintf  (out, "\n  STATE  Variable  Initial,  Old  and  Present  Values\n"); 

for  (j  -  0  ;  j  <  ee [i] ->con .nbr_states  ;  j++) 

( 

fprintf (out , "  %20a  s:  %15g  it  %15g  t:  %15g\n", 

ee ( i ] ->device->atate_name [ j] , 

ee ( i] ->con . init_state [ j ) , ee [i] ->con . old_atate ( j ] , 
ee [ i] ->con . state [ j) ) ; 

) 

} 


/*  print  out  the  implicit  variables  */ 

if  (ee ( i ] ->con . nbr_implicit  >  0) 

( 

fprintf (out, "\n  IMPLICIT  Variable  Frasent  Values  and  Index\n") ; 

for  ( j  ■  0  ;  j  <  ee [i] ->con . nbr_implicit  ;  j++) 

( 

fprintf (out, "  %20s  ::  %15g  ::  %3d\n", 

ee [i] ->device->implicit_name  t  j]  , 

ee ( i ] ->con . implicit ( j ] , ee (i ] ->con . imp_index ( j ] ) ; 

t 

) 

/*  print  out  the  external  input  variables  */ 

if  (ee [ i] ->con . nbr_ext_in  >  0) 

( 

fprintf  (out, "\n  EXTERNAL  INPUT  Initial  and  Present  Values\n " ) ; 
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for  (j  »  0  ;  j  <  «• ( i ) ->aon .nbr_ext_in  ;  j++) 

I 

f  print  f  (out ,  "  %20a  it  %15g  1 1  %13g\n", 

•• ( i ) ->devioe->ext_in_na«te [  j  J , 

•• ( i) ->con. init_ext_in ( j] , ee ( i] ->con. ewi_in ( j ) ) ; 

) 

I 

/*  print  out  the  external  output  variable*  V 

if  <«• (i) ->con.nbr_axt_out  >  0) 

( 

fprintf (out, "\n  EXTERNAL  OUTPUT  Praaant  Valuea\n")? 

for  (j  -  0  ;  j  <  •• (i]  ->oon .nbr_axt_out  t  j++) 

( 

fprintf  (out, "  %20a  i:  %15g\n", 

•a ( i] ->device->ext_out_name ( J ) , 

•«(i]  ->eon . axt_out ( j] ) ; 

} 

) 

/*  print  out  the  jacobian  */ 

fprintf  (out, "\n\n  JACOBIAN  SWITCH  IS  ") ; 

if  («• [i] ->con. jacob_awitch  -■  0)  fprintf (out, "0FF\n" ) ; 

also  fprintf (out, "0N\n” ) ; 

fprintf  (out, "\n\n  Jacobain  Matrix\n\n" ) ; 

for  (j  “  0  ;  j  *  5  <  ae (i] ->con .nbr_inputa  ;  j++) 

( 

for  (k  »  0  ;  k  <  ee ( i 1 ->con .nbr_implicit  ;  k++) 

{ 

for  (1  ■  j*5  ;  1  <  ee ( i} ->con. nbr_inputa  && 

1  <  ( j+1 ) *  5  ;  1++) 
fprintf  (out, "  %15g", 

ee ( i] ->con . jacob_in (k  +  ee ( i) ->con. nbr_implicit  *  1]) 
fprintf (out , " \n" ) ; 

> 

fprintf (out, "\n")  ; 

} 

/*  print  a  form  feed  */ 
fprintf (out, "\f") ; 


/*  print  out  network  information  */ 

for  (i  =  0  ;  i  <  nnode  ;  i++) 

( 
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fprintf (out, "\n  NODE  it  %a\n\n", nn [ i J ; 

for  (j  ■  0  ;  j  <  nn (i]->nbr_subnode  ;  j++) 

( 

fprintf (out , "  ")< 

if  (nn  t  i}  ->aubnode  (  j  J  ->ref_.f  lag) 
fprintf (out, "  REFERENCE"); 

if  (nn ( i] ->subnode [ j] ->typa  0) 
fprintf (out, "  VOLTAGE  SUBNODE  i  "); 
else 

fpri-tf (out, "  CURRENT  SUBNODE  i  "); 

fprintf (out, "%s  ", nn ( i] ->aubnode ( j) ->name  ); 

if  (nn ( i) ->subnode ( j] ->type  0) 

fprintf (out, "  ::  %15-g\n”, nn ( i) ->aubnode ( j) ->init_volt) 

else 

fprintf (out, "\n") ; 

/*  print  out  the  attached  variables  */ 

for  (k  -  0  ;  k  <  nn (i) ->subnode I j ) ->nbr_connect  ;  k++) 

( 

fprintf  (out,  "  %20si%-20s  *■'  %15g\n", 

nn ( i] ->subnode ( j] ->element (k) , 
nn ( i] ->subnode ( j) ~>variable (k) , 
ee [nn ( i ) ->subnode ( j ) ->elm_ptr [k] ] -> 
con . in (nn [ i] ->subnode [ j] ->varjptr  [k] ) ) ; 

) 

fprintf (out, "\n") ; 


/*  print  out  form  feed  */ 
fprintf (out, "\f") ; 


/*  print  out  the  queue  */ 

fprintf (out, "  QUEUE\n\n"); 

for  ( i  =  0  ;  i  <  nq  ;  i++) 

( 

fprintf (out , "  %20s:%-20s  =  %15g  at  time  %15g\n", 
ee [qq ( i ) ->elm] ->name, 

ee (qq (i ) ->elm] ->device->input_name (qq [i ] ->var ) , 
qq ( i ) ->value, 
qq(i] ->time) ; 

) 
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/*  print  out  form  feed  */ 
fprintf (out, "\f ") ; 

fprintf (out, "  IMPLICIT  VECTOR\n\n" ) ; 

fprintf  (out, "  Implicit  Error  -  %-15g\n\n" , implicit_error (ee , nelm) ) 

for  (i  ■  0  ;  i  <  nitab  ;  i++) 

( 

fprintf (out, "  %2d  %20a:%-20s  -  %15g\n", i, 

•• (itab [i ] ->e] ->name, 

ee (itab [ i ] ->e]->device->implicit_name (itab [i] ->ij , 
ee ( itab (i] ->e] ->con . implicit ( itab (i) ->i) ) 


/*  print  out  form  feed  */ 
fprintf (out, "\f") ; 

fprintf  (out, »  INPUT  VARIABLE  VECTOR\n\n" ) ; 

for  (i  ■  0  ;  i  <  nxtab  ;  i++) 

( 

fprintf (out, "  Variable  %d\n",i); 

for  (j  ■=  0  ;  j  <  xtab(i]->nbr  ;  j++) 

fprintf  (out, "  %20a  s  %-20a  -  %14g  x  %3d\n", 

ee [xtab [i] ->e ( j] ] ->name, 

ee (xtab (i] ->e ( j] ] ->device->input_name (xtab (i) ->v( j] ] , 
ee (xtab [i J ->e ( j] ] ->con. in (xtab(i) ~>v[ j]  ]  , 
xtab(i] ->mult ( j] ) ; 


/*  assemble  and  print  out  the  jacobian  matrix  */ 
fprintf (out, "\f") ; 

jacob  =  (double  *)  calloc (nxtab  *  nitab  ,  sizeof (double) ) ; 

implicit  *  (double  *)  calloc (nxtab  ,  sizeof  (double) ) ; 

imp  »  (double  *)  calloc (nxtab  ,  sizeof (double) ) ; 

var  *  (double  *)  calloc (nxtab  ,  sizeof (double) ) ; 

/*  make  the  jacobian  matrix  */ 

make_jacob ( jacob, xtab, nxtab, itab, nitab, ee, nelm, nn, nnode, simulate) ; 

/*  print  out  the  jacobian  matrix  */ 

fprintf (out, "\n  SYSTEM  JACOBIAN  MATRIX\n\n" ) ; 
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for  (i  «  0  ;  i  *  5  <  nxtab  /  i++) 

( 

fprintf (out , "  %3a  "); 

for  (k  -  5  *  i  ;  k  <  nxtab  SS  k  <  5  *  (i+1)  ;  k++) 

{ 

fprintf (out , "  %3d  ",k); 

) 

fprintf (out, "\n") ; 

for  (j  ■  0  ;  j  <  nitab  ;  j++> 

( 

fprintf  (out, "  %3d  ",j); 

for  (k  «  5  *  i  ;  k  <  nxtab  c,&  k  <  5  *  (i+1)  ;  k++) 

( 

fprintf (out, "  %14g", jacob [ j  +  nitab  *  k)); 

) 

fprintf (out, "\n") ; 

) 

fprintf (out, "\n\n") ; 

) 

fprintf (out, "\f ")  ; 

/*  print  out  Nowton  Eaphson  Correction  */ 

/*  make  the  implicit  variable  vector  */ 

make_implicit (ee, nelm, itab,  nitab,  implicit) ; 
make_implicit (ee, nelm, itab, nitab, imp) ? 

/*  solve  the  system  of  equations  */ 

i  =  gauss_eliminate (nxtab, jacob, implicit, var) ; 

/*  note  that  the  contents  of  jacob  and  implicit  were 
destroyed  by  gauss_eliminate  */ 

fprintf (out, "\n  IMPLICIT  VECTOR  and  CORRECTION  VECTOR\n\n") 

if  (i  ! «  0) 

fprintf  (out, "  ***  SINGULAR  SYSTEM  MATRIX  ***\n\n") ; 


fprintf (out , "\n  n  Implicit  CcrrectionXn " ) ; 

for  (i  =  0  ;  i  <  nitab  ;  i++) 

fprintf  (out, "  %3d  %15g  %15g\n", i, imp(i] ,var [i] ) ; 

fprintf (out, "\f") ; 


/*  print  out  the  emulation  stuff  */ 


271 


dump_data.c 


fprintf (out, 

"\n\n  SIMULATION 

DATA\n\n") ; 

fprintf (out , 

"  DT 

at 

%g\n", aimulate .dt) ; 

fprintf (out, 

"  TMIN 

m 

%g\n", aimulate .tmin) ; 

fprintf (out, 

"  TMAX 

m 

%g\n",  simulate .tmax) ; 

fprintf (out, 

"  TIME 

m 

%g\n", aimulate .time) ; 

fprintf (out, 

"  MAX_ITER 

m 

%d\n",  aimulate .max_iteration) ; 

fprintf (out , 

"  CONVERGE 

m 

%g\n",  simulate .converge) ; 

fprintf (out, 

"  DELTA 

ar 

%g\n" , aimulate .delta) ; 

fprintf (out, 

"  DELTA_MIN 

■t 

%g\n", aimulate .delte_min) ; 

fprintf (out, 

"  PRINT_DT 

n 

%g\n\n\n" , aimulate .print_dt) ; 

fprintf (out, "  DISPLAYED  VARIABLES\n\n" ) ; 

for  (temp  ■  pv->n*xt  ;  temp  !«  NOLL  ;  temp  »  temp->next) 

{ 

if  (temp->typ  «»  0)  /*  external  output  */ 
fprintf  (out,  11  %20s : %-20a\n" , 

ee ( temp->e ] ->name  , 

ee (temp->e) ->device->ext_out_name [temp->v) )  ; 
else  if  (temp->typ  *»“  1 )  /*  external  input  */ 
fprintf  (out , "  %20s : %-20s\n" , 

ee [temp->e] ->name, 

ee (temp->e] ->device->ext_in_name (temp->v] ) ; 
else  /*  subnode  voltage  */ 

fprintf (out, "  %20a : %-20s\n" , 

nn [temp->e] ->name, 

nn [temp->e] -> subnode ( temp->v] ->name) l 

) 

) 
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/*  dump_device . c  */ 
/*  Norbert  H.  Doerry 

15  March  1989 


This  routine  prints  out  all  the  device  characteristics  of  all  the 
devices  to  the  filename  specified  to  it.  If  the  filename  is  not 
provided,  then  it  is  written  to  the  stdout 


*/ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry. h" 

dump_device (dev, ndev, inline) 

DEVICE  “dev; 
int  ndev? 
char  ‘inline; 

I 

int  i; 

FILE  ‘out? 

inline [0) 
strstrip (inline)  ; 

/*  open  stream  */ 

out  “  (inline [0]  ==  NULL)  ?  stdout  :  f open ( inline , "w" ) ? 
if  (out  ==  NULL)  out  =  stdout; 

/*  print  out  devices  */ 

for  (i  =  0  ;  i  <  ndev  ;  i++) 

{ 

print_device (dev [ i ]  ,  out )  ; 
if  (i  <  ndev  -  1  &&  out  !  ■=  stdout) 
fprintf (out,  "\f") ; 
else  if  (out  ==  stdout) 

( 

printf("  Enter  <RETURN>  to  continue  :  "); 
gets  ( inline ) ; 

) 

) 

/*  close  file  */ 

if  (out  !=  stdout)  fclose(out); 


) 


273 


•  Bill  l  *  I  (Ml  l  at.  »  ,  •'  * 

*  Nai|,e|t  H.  !»*»•»  *'V 

}  >  Mi*  -'h 

‘fhia  will  III!  4lt^»  t  ha  tiaal  ta  edit  the  eimti  1  at  i  ent  parameter* 


»**  modified  )('  Apiil  0#  te>  fix  error  in  edit  ref  routine  *** 


* 

||,lo|ud*  l  ■ 

I include  vmat  h,h> 
llliclude  "doer  t  y  ,  h" 

•  ■lit  aimuiat  •  tee,  neiro,  on,  nnoda,  aimnlate,  pv,  line) 

ELEMENT  *•»*) 

ltd  neimf 

HOPS  **niw 

\  »  nitodei 

SIMULATE  •aimuialej 

l HINT  VAR  ‘pv? 

dial  Mine; 

I 

double  valj 

chat  oh,  ini  ilia  IHAXOHAH) ,  onulj 

Hit  nont, tlagi 


*  atrip  off  tha  edit  simulate  command  *. 
at  ropy (inline, line) f 
at  t  at  i  ip ( in  1  ina  i  ; 
inline |t>)  “  1  ‘  i 

at.  r  at  rip  (inline)  ) 

omd  »  in  1  i ne  ( n )  / 

if  l  omd  )“  ‘  t. 1  it,  omj  I «  'V  tt,  omd  l»  1 1 '  it  timtl  I  “  '  ci  *  ) 
flag  -  1; 

a  ',*• 

flag  -*  l'f 


wh lie  (  1 > 


it  (flagl 
I 

punt-f  ("\n  Edit  SIMULATE  Saot  i  on\n"  )  ; 


pi  intf ( " 
pi  i nt  t'  (  " 
pi  l  nt  f  (  " 
print  f ( " 
pi  i  nt.  t  (  " 
.  i int f (” 


it  Edit  biaplay  Vai'  tabl »a \n"  *  / 

1  Edit  daoobian  Pai  ametei  a\n"  >  <■ 

>|  Qu  i*  \n" )  ) 

i  Edit  Reference  Voltage  SubitodeaXn" ) 
t  Edit  Time  Raramet  ei  a\n" I ? 

I  nt  ei  I'ommand  I  " )  ' 


.‘M 


edit  simulate, 


get* (inline) / 
strattipUnline)  ; 
oiH'l  »  ini  in*  |  o]  * 
if  (omtl  *  q M  return; 

if  (omd  1“  *  t*  hi  omd  I  **  *  j*  tu  omd  l»  ’  r '  H  amd  !»  '  d*  I 
continue; 

I 

i  f  <  omd  **«  '  d'  ) 

edit  di  splay  ( inlina,  *•,  ne.lm,  I* ,  pv)  ; 

•  laa  if  (eimd  ••  '  j'  ) 
adit  laoob (simulate) ; 
a  1  *  a  i t  (omd  »*  ' i '  ' 

r iitref ( inline, ee, nelm, nn, nnade, at  e) ; 
a  laa  if  (omd  ■»  '  t'  ) 
adit  t  ime  ( aimulat  a )  ; 

if  (flay  0)  return; 

I 

) 

edit  time  (simulate) 

SIMULATE  "simulate; 

( 

chat  oh,  inline  |  MAXCHAM 
double  val; 
lot  nont; 

.  *  ant  a  i  time  moi  amant  *, 


a  l 

print*  ("  Enter  TIHKSTKP  (default  U2,*g)  1  ", aimulata~>dt ) ; 

get  s ( in  1 i na )  ; 

ch  "  Stoda ( inline , &val , incnt ,  1 )  ; 
if  (ch  ■*■»  ‘  g‘  ;  return; 

if  (nont  i  M.  val  "*  0)  »imulate->dt  »  val; 


i 1 1 

printf("  Enter  THIN  (default  *12, 5g)  i  " , aimulate->tmin) ; 

gat  a ( inline) ; 

oh  »  St  oda  (  ml ina ,  a  va  1 , tncnt ,  l )  ; 
i f  (oh  ■“  * q‘ )  return; 
if  (oh  ““  1  b*  )  goto  a; 
if  (nont  --  1)  simulate ->tmln  -  val; 


o  I 

pt int  * (  "  Enter  TMAX  (default  *12,  *y)  i  "  ,  simulat  e->tma;;>  ; 

get  a ( inline) l 

oh  “  Stoda  (  in  1  ina  ,  k  va  1 , Anont. ,  i )  ; 


i  f 

(ch  »*■  1  l( ‘  ) 

return; 

if 

(ch  "*  ‘  b’  J 

goto  b; 

if 

(nont  *■«  1 ) 

simulate ->tmax 

di 


Ml 


•  <U t  aimnlat#  .»* 


pi'intfl"  Sntai  PRINT  STRP  IdafanH  ti8,4g|  t  ",  dt  I ) 

9*l»llhHt(»l  I 

<>h  «  Si  »d*  (in  Una,  fcva  1 ,  hi>«h«  ,  l l  t 
it  («h  »"  '  q'l  latum ) 
i  t  (oh  ■»  '  h'  l  goto  °> 

if  (nont  »»  \  Kk  va  1  *  <>t  •*  valj 


adit  i»m*ht Simula* *l 
SINUUTR  ‘simulat*; 

I 

chat  oh,  inHn*tMAXC|tAhj ) 
douH*  val) 
int  n«nt / 


printfC  Rntai  CONVRRC1R  (sIiUhH  *  1  ►  ,  ^  >  I  "  .  a  imulat  g»l  l 

g*t  *  » in  1  in* t : 

oh  “  st oda (in li o» ,  k v* i ,  fcoont ,  l )  ; 

,i  f  (oh  **“  1  •('  '  raturn ; 

it  tnont  -»  1  44  val  '•»  0|  almwlat *->uunvaiy*  -  val< 
f  i 

printf!"  Rntar  MAX  ITRKATK'N  tdafavut  »i»\l!  i  ' , a imui»ta-?»*K  itai at innli 
gats  ( in  l  in*  I ) 

oh  »  st oiU  ( tnl in* , * v» J , 4n<>nt , }) . 
if  (oh  “■  '  g'  I  utiirn; 

if  (oil  <•“  '  l  1  I  goto  a; 

if  (non*  »“  l  44  val  •>  01  » imul at •- >m*K  itamtion  »  (int)  valt 
9  > 

printfC  Rntar  PRLTA  (dafault.  tK'.by)  i  ", *imuiat*->d*lta) / 

y*t a ( ini in* ) i 

oh  “  St oda ( ini i n* , 4 v* I , incut , 1 ) i 
if  (oh  ■»“  1  g’  )  rttui  n 

if  (oh  1  1>‘  )  goto  f ; 

it  (nont  1  4*  val  •  °)  a rmul at a- >d* 1 t a  “  val; 
hi 

print!  ("  Knt  •  t  t'Kl.TA  Mil)  iiiltull  lU’.Sgl  i  ",  aimnlat*->dal t amin) t 

gat  •  (  ini i n* )  i 

oh  ■  St oda ( lnl in*, 4va 1 , 4nont , 1 ) / 
if  (oh  ““  'g'l  r*turnj 
if  (oh  ““  1  h'  )  goto  if  i 

if  (nont  >»■  1  44  val  ■*  0)  aimulata-'nlalta  min  “  v« l ; 


t 

ad 1 1  di sy  lay  { ini  m* ,  a* ,  na lm,  nn,  nnwlt ,  yv) 

ohav  ‘inlinai 

KI.KMKNT  ••**. 

mt  nalmi 

NOl'R  •*nii) 


•  tilt  IIWlttM.i' 


ill*  n|i.i.|») 

i'h  i  Wf  \'W» 
l 

* ,  i,  * vp,  f  Ua,  •,  »f 

rt*?HT  VAI*  •  *•*•§»» 

Un*  IMMi*  HW'  h  **.4,  *M*  iNA*>’HA* ) ,  vn  mAiP  MMM  f 

*  stlip  inline  *<  fli»t  »i 

•  it  ~py  i  **-'»,  i n i  mar ; 

\  un*  (0)  *  1  '  j 

at  i  at  1 1 p  1  i  ma *  i 
.m«.i  «  line|i')i 

*  •••  It  o».t  l  a  •  v>al|4  vii>fn«*t\4  * 

if  i.’tu.i  «»  1  •’  ||  »i|M  ».«  >4  1 

r  i  *.j  -  \ > 
else 

t  l  *.j  *■  i'; 

Mil  1  1  a  III 

if  I  f  1  a  j  “»  l*  I 

( 


\  I  I  III  f  I  "\  II 


DISfl.AY  VAAiAI*m  \n''l  > 


( .n  (tamp  “  pv*>naNt  i  temp  l “  NPl.L  )  temp  -  \  ewp-^nsut  \ 
I 


I 


if  <te»p->typ  ■»  0) 

punt  ft”  tJOa  i  t’-**0e\n“,  ee|tea^->e) ->n*we, 

•  «  |i  eiap-  >e  |  - >dev i o» -  »ent^c>\it nama  ( t aa^- -:>v )  I 

•  1  >«  if  (temp-^typ  *•  II 

pi  in* ft"  'JO#  I  t-*'0a\n'',  ee|temp->e) -'•iiama , 

ee  ( t  einp* >e )  *■  >devroe - >eat  in  name  |  v  *mp- >v ) )  / 

•  lae  if  tt emp->t yp  ““  i) 

print! (”  *30a  i  t-J0e\n", nn(tei*p”>e) *>neme, 

nn  1 1  amp-  >•  )  - >aubnode  1 1  emp- *v  )  ->na«ie  I  I 


if  tcwi  ’H‘|  return  Oj 

print  f  ("\n  Sdit  DISPLAY  VARIABLE!!  COMMANDS \n”  \  i 

print!  ("  •  Add  Pi»pi»y  Variable  ,n"i i 

print  f  < "  d  Delete  Display  Vat i able \n" I ; 

printft"  tj  Quit  Edit  Display  Var  iabtes\n")  i 

print  ft”  Knter  Coiiwand  i  ")  i 

(jet  a  (  l  ina  I  j 

at  i  at  r  ip  ( 1  ilia  I  ; 

tiinj  “  1  ine(O)  i 
1  f  (omd  **«•  *  vj ■  )  i  etui  n  0; 

else  if  (onui  '«  1  a‘  kk  innil  !  «•  ’it1)  oonrimis; 


Ml*  ttffdtiftV* 


t 

*  »l|lf  -ft  --l*4|**4ld  » 

U«*I»M  *  ’  '  f 
»U«Mt>l  l«t»**  ) 

*  »M»|e  -ft  iUm«‘  n<fi  «M  v*»4*M*  auHn-rt*  V 

»M'‘  »t*M  |  M»*,  *14,  "(U  I 
»  if  i ti*  *)*m*nt  «»d*  ai*  t|i*i*  * 

4  f  t»M  | « J  »®  W»ll  II  •  *  HUl.lt 

I 

I  I  1141  I  i ''  ■  it  Kni*i  piapiay  ViiuMi  i  S  I  (tHotiil  i  i 

**t*t  l  4  14*  |  i 

f|  III  •  if»  4  I  I  II*  ,  *|.  ,  V'llt  I 


*  If  Uv»  *nity  i*  lie**.),  ali-w  tli*  manii  • 

If  t*44|('l  -»  NUli  II  V  |4  |  U )  -»  HUi.il 
I 

f  lay  “  0 / 

4>t>m  Him  j 

i 

*  find  t  h*  *l»m*nt  * 

f-'i  (l  “  0  i  i  .  ii«lm  fc*  at  romp  t**  1 1 )  - >n*m*,  *n)  I-  0  j  !«♦)> 

if  ( i  »»  n* I ml 

I 

foi  I  i  »  o  ,>  i  v  lin  'd*  *4  atirm). (iin'  i ) -'»n*m*,  *nl  l»  0  i 
if  It  lined*) 

I 

printfi"  **•  UnaM*  to  find  *l*m*nl, nod*  4*\n,',*n)i 
fi*9  »  0; 
f'ont  l  mm 
I 

t  yp  “  1 1 

for  (i  »  0  i  i  «.  nn  I  i  | ->nbi  _aubnod*  44 

atremp  (nnj  i  ) ->*ubnod*  |  j) -:»n*m*,  vn)  t*  0  ;  j  +  +  )  t 

if  (  j  »*>  nn  I  i ) -"Mibr  aubned*  ) 

I 

print  f  ("  ***  Unal-l*  to  find  SU0NOC>K  taW.vnl; 
flag  -  0) 
cent  i  nil*  i 


i*+>  ) 


I 


*dl»  lilMUU  - 


1 1  inn  I) )  >  »aubn«ida| })  “Myj'*  “•  l)  /  *  auffanfc  aubnoda  V 

i 

printn"  ••*  HtttlHtU>K  »#  t  la  la  a  amiant  aahn®da\n'\  an,  vn)  / 
tlM  *  «f 
-■>n»  \m*i 


I 

•  laa  •  it#  an  alamant  i  vanabla  antry  */ 
i 

.  ♦  «t»  If  U*  an  aatarna)  output  variabla  */ 

ff>i  ( tt  “  o  /  J  <  aa  |  i )  «>-o6n , nfet  «v»t  44 

at  <•«  (4 )  »>davioa*\>a*ti_ieuti_na»a  |  j) ,  vn)  )»  0  ;  j+4)< 

s  f  (i  “•  ••  |  j )  "^oon,nl>i_a«t  *,  v»«;  l  *  waan’t  an  axtarnai  output  */ 

I 

for  (1  ■  0  /  j  v  aa  1 1  )  -->con  .nbr _»st_in  44 

»*t  »onvp  (wa| i ) »>tUvioa'>axt_in_nama  |  jj ,  vn)  I*  o  ;  j+  +  )  / 

If  (  i  »“  ••  (  i )  <'>cicin .  nf>v_a«t_  In)  !  *  waan' t  an  aatarnal  input  */ 
( 

print  f  ( "  **•  Unabla  to  find  VAJUASUl  *aW’,vn)/ 
flay  •»  0; 
oont i nua ; 


typ  -  1/ 

) 

•  laa 

‘ yr  -  °> 

i 

,  •  now  lata  gat  to  worl  * / 

i t  (ca  l  »»  *  d ‘ ) 

dalata  pv  ( l ,  j,  t.yp,  pv)  ; 
also 

odd_pv  ( i ,  j,  t.yp,  pv) ; 
if  (flag)  raturn; 


) 

dalata  pv (i , } , typ, pv) 
int.  i  ,  j  1 1  yp  / 

PMNTVAB  *  pv ; 

( 

PPINT  VAF  *  t.anip ,  *  last; 


laat  -  pv; 

for  (tamp  “•  laat-  >naxt  ;  tamp  l«  NULL  /tamp  »  l*9t->na;:t  ) 
( 
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if  (t.amp->e  i  tfi  temp->v  j  tt  temp->typ  ■■  typ) 

( 

laat--*next  •  temp->next; 
fraa (tamp) / 

) 

alaa 

< 

laat  ■  tamp; 

) 

) 

) 

addjpv(i, j, typ, pv) 
int  i, j, typ; 

PRINT_VAR  *pv; 

( 

PRINT_VAR  *tamp, *l«at; 
char  *c«lloc ( ) ; 

/*  ensure  that  the  variable  isn't  alraady  thara,  if  so,  delete  it  */ 
delete__pv  (i ,  j,typ,pv)  ; 
last  «  pv; 

for  (temp  -  last->next  ;  temp  !"  NULL  ;temp  »  last->next  ) 
laat  «  tamp; 

last->next  *  (PRINT_VAR  *)  calloc ( (unsigned)  1  ,  sizeof (PRINT_VAR) ) ; 

temp  »  last->next ; 

temp->e  =  i; 

temp->v  »  j; 

temp->typ  ■  typ; 

temp->next  «  NULL; 


) 


edit_ref (inline, ««, nelm, nn, nnode, simulate) 
char  ‘inline; 

ELEMENT  “ee; 
int  nelm; 

NODE  **nn; 
int  nnode; 

SIMULATE  ‘simulate; 

( 

int  i , j , flag, ncnt ; 

char  line [MAXCHAR]  ,  cud,  n_name (MAX CHAR] ,  s_name [MAXCHAR]  ,  var (MAXCHAR) ; 
double  val; 

inline (0]  =  '  '  ; 

strstrip ( inline)  ; 

/*  print  out  the  reference  voltage  subnodes  if  the  user  hasn't 
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entered  any  arguments  on  the  command  line  */ 

if  (inline [0]  —  NOLL) 

( 

printf("\n\n  Reference  Voltage  Subnode*\n\n") ; 
for  <i  «  0  ;  i  <  nnode  ;  i++) 

( 

for  (j  “  0  ;  j  <  nn ( i) ->nbr_aubnode  ;  j++) 

( 

if  (nn ( i] ->subnode ( j] ->ref_flag  ■“  0  | | 

nn ( i) ->subnode ( j] ->type  ■■  1)  continue; 

printf("  %20si%-20a  %g\n",  nn  (i)  ->name, 

nn (i) ->aubnode [ j ) ->name, 
nn (i) ->aubnode ( j ) ->init_volt) ; 

) 

) 

printf("\n  Enter  Reference  Voltage  Subnode  i  "); 
gets  (inline) ; 
strstrip  (inline)  ; 


/*  if  still  don't  have  anything,  give  up  and  return  */ 
if  (inline [0]  «=  NOLL)  return; 

/*  decompose  the  string  */ 
split_ref  (inline,  n_name ,  s__riame,  var)  ; 

/*  find  the  node  */ 

for  (i  ■  0  ;  i  <  nnode  &&  strcmp  (n_name ,  nn  [  i) ->name)  !■>  0  ;  i++); 

if  (i  ■»“  nnode) 

( 

printf("\n  ***  ERROR  :  Node  %s  Does  not  exist \n",n_name); 
return; 


/*  find  the  subnode  */ 

for  (j  =  0  ;  j  <  nn ( i ) ->nbr_subnode  && 

strcmp  (s_name,  nn  [i] ->subnode  (  j ) ->name)  !«*  0  ;  j++)  ; 

if  (j  ■=  nn ( i ) ->nbr_subnode ) 

( 

printf("\n  ***  ERROR  :  Subnode  %s:%s  Does  not  exist \n" , n_name , 
return; 


/*  see  if  a  new  value  was  provided  */ 
Stoda (var, &val, 4ncnt, 1) ; 


name ) 
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if  (nant.  ■■  0) 

{ 

printf("\n  Enter  New  Reference  Voltage  (default  *g)  i  ", 
nn ( i ) ->aubnode ( j ] ->init_volt ) / 

get* (var) ; 
atratrip  <var) ; 

St  ode  (var,  tval ,  t  riant,  1 )  ; 

if  (nant  ■«  0)  return;  /*  give  up  if  default  desired  */ 


/*  set  the  initial  voltage  V 

nn | i ] ->eubnode ( j J ->init_ vol t  -  val; 


split _elm (in, an, vn) 
char  *in, *«n, *vn; 

( 

int  i, j; 

/*  atrip  off  element/node  and  var iable/aubnode  */ 

for  (i  -  0  ;  in ( i ]  !-  NULL  &&  in(i)  ! -  *  «’  ;  i++) 

•n [ i ]  -  in ( i ] ; 

•n|i]  -  NULL; 
atrat  rip (en)  ; 

if  (in(i]  !«  NULL)  i++;  /*  look  past  the  colon  */ 

for  (j  ■»  0  ;  in(i)  !»  NULL  ;  i  +  +  ,  j  +  +  ) 
vn( j)  -  in(i)  ; 

vn ( j )  »  NULL; 

atratrip ( vn) ; 

/  *  ignore  everything  after  the  first  apace  of  vn  */ 

for  (j  -  0  ;  vn  ( j )  !-  NULL  St  vn(j]  '  St  vn(j)  !>*  '\t'  ;  j++) 

vn ( j )  -  NULL; 


I 

split_ref (in, nn, an, var) 
char  *in, *nn, *80, *var ; 

I 

int  i , j ; 

/*  strip  off  subnode*/ 

for  (i  «  0  ;  ln(i)  !-  NULL  &&  in(i)  !-  ' : '  ;  i++) 
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nn|i)  -  in ( i] ; 
nn(i)  -  NULL; 
atratrip (nn) ; 

/*  atrip  off  the  aubnode  */ 

if  ( in { i ]  !«  NULL)  i++;  /*  look  paat  the  colon  */ 

for  (j  -  C  ;  in ( i ]  I-  NULL  tt  in ( i }  I-  '  '  44  in[i)  !-  '\t'  ?  i++  ,  j++> 

■n ( j ]  -  in [ 1] ; 
an ( j)  -  NULL? 
atratrip  (an) ; 

/*  atrip  off  the  value  */ 

for  (j  -  0  ;  in ( i ]  I-  NULL  ;  i++, j++) 
var  {  j)  -  in [i]  ; 
var  [  j)  -  NULL; 
strstrip (var) ; 
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/*  elm_jacob.c  */ 

/*  Herbert  H.  Doerry 

6  March  1969 

*/ 

/*  This  routine  calculates  the  jacobian  matrix  for  an  element  by  varying 
the  input  variables  and  and  seeing  how  the  implicit  variables  change 

V 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry. h" 

elm_ jacob (e , s imulate ) 

ELEMENT  *«; 

SIMULATE  simulate; 

( 

int  i,  j, k; 

double  low_in  ,  normal  in  ; 

double  *in, ‘state, ‘implicit, *ext_out, *temp_implicit , *temp; 
char  *cal loc ( ) ; 

/*  ensure  delta_min  is  large  enough  to  prevent  divide  by  zero  errors  */ 

if  (simulate. delta^min  <  le-20)  simulate . de lta_min  =  le-20; 

temp_ implicit  =  (double  *)  calloc ( (unsigned) e->con . nbr_implicit, 

sizeof  (double) ) ; 

state  =  e->con . state ; 
implicit  =  e->con . implicit; 
ext_out  =  e->con . ext_out ; 

e->con. state  “  (double  *)  calloc ( (unsigned) e->con . nbr_states  , 

sizeof  (double)); 

e->con . implicit  =  (double  *)  calloc < (unsigned) e->con . nbr_impl icit , 

sizeof  (double) ) ; 

e->con . ext_out  =  (double  *)  calloc ( (unsigned) e->con . nbr_ext_out  , 

sizeof  (double)); 


for 

( 


(i  =  0  ;  i  <  e->con.nbr_inputs  ;  i++) 
normal_in  =  e->con . in ( i ] ; 

/*  change  the  input  variable  to  something  somewhat  smaller  */ 


e->con. in [i]  ■=  (  fabs (normal_in  *  simulate . delta)  >  simulate . delta_min)  ? 
normal_ in  *  (1.0  -  simulate .delta)  ;  normal _in  -  simulate .delta _min; 

low_in  =  e->con . in [ i] ; 

/*  calculate  the  new  implicit  variables  */ 
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(e->deviae->f )  (e,  simulate . dt) ; 

/*  exchange  temp_implict  with  e->aon . implicit  */ 

temp  -  e->con . implicit; 
e->con. implicit  ■  temp_impl icit ; 
temp_implicit  *  temp; 

/*  change  the  input  variable  to  something  somewhat  larger  */ 

e->con.in(i]  =■  (  fabs (normal_in  *  simulate . delta)  >  simulate . delta_min)  ? 
normal_in  *  (1.0  +  simulate .delta)  :  normal_in  +  simulate  .delta_mir>; 

/*  calculate  the  new  implicit  variables  */ 

(e->device->f ) (e, simulate . dt) ; 

/*  calculate  the  slopes  */ 

for  (j  “  0  ;  j  <  e->con . nbr_implicit  ;  j++) 

( 

e->con. jacob_in [ j  +  e->con . nbr_implicit  *  i)  « 

(e->con . implicit [ j]  -  temp_implicit [ j ) ) 

/  (e->eon . in ( i]  -  low_in) ; 

( 

c->con.in[i]  *  normal_in; 

) 

free (e->con. state) ; 
free(e->con. implicit ) ; 
f  ree ( e->con . ext_out ) ; 
f  ree  (temp_implicit.)  ; 

e->con. state  =  state; 
e->con. implicit  =  implicit; 
e->con.ext__out  «■  ext_out; 


) 
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/*  file_options . c  */ 

/*  Norbert  H.  Doerry 

13  March  1989 

This  »..le  contains  the  routines  for  saving  and  loading  the  SIMULATION 
section  and  the  INITIALIZATION  section. 

“*  Modified  19  April  1989  *** 

fixed  'save  simulation'  to  print  "SIMULATION"  at  the  top 


*/ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry. h" 

static  char  sim_filename (MAXCHAR] , init_f ilename [MAXCHAR] ; 

f ile_options (inline, ee, nelm, nn, nnode, q, nq, simulate,  pv, 
xtab, nxtab, itab, nitab, errf lag) 

char  ‘inline; 

ELEMENT  “ee; 
int  nelm; 

NODE  *  *nn ; 
int  nnode; 

QUEUE  *  *  *  q ; 
int  *nq; 

SIMULATE  ‘simulate; 

PRINT_VAR  *pv; 

XTABLE  “xtab; 
int  nxtab; 

I  TABLE  “itab; 
int  nitab; 
int  errflag; 

( 

int  i , j , k, flag, rw; 

char  line [MAXCHAR] , filename [MAXCHAR] , string [21] ,  cmd; 
FILE  *io; 

/*  initialize  flag  to  no  errors  */ 
flag  =  0; 

/*  copy  the  input  line  */ 
strcpy ( line , inline)  ; 

/*  strip  off  the  first  character  */ 

line[0]  =  '  '  ; 
str strip ( line  )  ; 

/*  get  the  command  if  its  there  */ 


286 


f ile_options . c 


cmd  ■  line (0)  ; 

/*  get  the  filename  if  its  there  */ 

if  (cmd  !-  'NULL') 

( 

line [0]  -  '  ' ; 

otrstrip(line) ; 
strcpy (filename , line) ; 

) 

/*  if  the  command  isn't  a  proper  one,  display  the  menu  */ 

flag  “  (cmd  ««  NULL)  T  1  :  0; 

while  (1) 

( 


if  (flag) 


printf ( "\n\n  FILE  OPTIONS\n"); 

printf ("  c  Change  Working  Directory\n" ) ; 

if  (errflag  ==  0) 

{ 


printf (" 
printf (" 
printf (" 


d  Dump  Simulation  State\n"); 

i  Save  INITIALIZATION  Section\n"); 

I  Load  INITIALIZATION  SectionXn"); 


printf  ("  q 
if  (errflag  == 
( 

printf (" 
printf (" 

) 


Quit\n" )  ; 

0) 

s  Save  SIMULATION  SectionSn"); 
S  Load  SIMULATION  Section\n”); 


printf ("  Enter  Command  :  "); 


gets  (line) ; 
strstrip(line)  ; 
cmd  =  line [0] ; 


/*  get  the  filename  if  its  there  */ 


if  (cmd  !=  'NULL') 

( 

line ( 0]  =  '  ' ; 

strstrip(line) ; 
strcpy (filename, line)  ; 


) 


if  (cmd  ==  ' q' ) 
return  flag; 
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else  if  (cmd  »  'c') 

change_directory (filename) ; 

else  if  (cmd  ■■  ' d’  ii  errflag  «•  0) 

{ 

if  (filename [0]  ! =  NULL) 

i  =  get_filename (filename, iio, 1, "DUMP", 1) ; 

else 

i  ■=  get_filename (filename, iio, 1, "DUMP",  0) ; 
if  (i  !=  0)  return  flag; 

dump_data (io, ee, nelm, nn, nnode, *q, *nq, ‘simulate, 
pv, xtab, nxtab, itab, nitab) ; 

if  (io  !**  stdout)  fclose(io); 

) 


else  if  (errflag 
( 


0  &&  (cmd 
cmd 


's'  ||  cmd 

' i '  ||  cmd 


'S'  II 
'I')) 


if  (cmd  's'  ||  cmd  ■==  'i')  rw  =  1;  /*  write  to  file  */ 

else  rw  =  0;  /*  read  from  file  */ 

if  (cmd  «=  's'  ||  cmd  ■*  'S')  strcpy (string, "SIMULATION" ) ; 

else  strcpy (string, "INITIALIZATION") ; 

/*  try  to  load  file  immediately  if  filename  is  non  zero  length  */ 

if  (filename (0]  !«  NULL) 

{ 

i  ■  get_filename (filename,  4io, rw,  string,  1) ; 

) 


/*  otherwise,  prompt  user  for  filename,  and  provide  default  name  */ 

else 

{ 

if  (cmd  ms  's'  ||  cmd  'S') 

strcpy (filename, sim  filename); 

else 

strcpy (filename, init_filename) ; 
i  «  get_filename (filename,  iio,  rw,  string,  0)  ; 

) 


/*  see  if  the  opening  of  the  file  was  aborted  */ 

if  (i  !»  0) 
return  flag; 

/*  save  the  filename  */ 
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if  (cmd  ■■  's'  ||  cmd  ■■  'S') 

strcpy (sim_filename,  filename); 
else 

strcpy (init_f ilename, filename) ; 

/*  process  the  files  */ 
if  (cmd  ■»  ' s' ) 

return  write_sim(io, sim_filename, ee,nelm, nn, 
nnode,  *q,  *nq, *simulate, pv) ; 
else  if  (cmd  ««  ' S' ) 

return  read_sim(io,  sim_f ilename, ee, nelm,  nn, 
nnode, q,nq, simulate, pv) ; 
else  if  (cmd  '  i'  ) 

return  write_init (io, ee, nelm,  nn, nnode) ; 
else  if  (cmd  “**  '  I'  ) 

return  load  init (io, filename, ee, nelm, nn, nnode) ; 


else  flag  «  1; 
if  (flag  “■*  0)  return; 

) 

) 

write_sim (out, filename, ee, nelm,  nn,  nnode,  q, nbrq, simulate, pv) 
FILE  *out ; 
char  *filename; 

ELEMENT  **ee; 
int  nelm; 

NODE  *  *nn ; 
int  nnode; 

QUEUE  **q; 
int  nbrq; 

SIMULATE  simulate; 

PRINT_VAR  *  pv ; 

( 

int  i, j , k ; 

PRINT_VAR  *temp ; 

fpr intf (out, "  !  %s\n ! \n" , filename) ; 
fprintf (out,  ”SIMULATION\n ! \nDISPLAY\n") ; 

for  (temp  -  pv->next  ;  temp  !■  NULL  ;  temp  -  temp->next) 

( 

if  (temp->typ  ««  0) 

( 

fprintf (out , "  %~20s  :  %s\n”, ee (temp->e) ->name, 

ee (temp->e) ->device->ext_out_name (temp->v) ) ; 

) 

else  if  (temp->typ  •>*  1) 

< 

fprintf (out , "  *-20s  :  Vs\n" , ee ( temp->e ] ->name , 

ee (temp->e) ->device->ext_in_name (temp->v) ) ; 
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) 


else  if  (temp->typ  "  2) 

{ 

fprintf (out, "  %-20s  :  %s\n", nn [temp->e] ->name, 

nn[temp->e] ->subnode (temp->v] ->name) ; 

) 


} 

fprintf (out, ”  END\n ! \n") ; 


fprintf (out, " 
fprintf (out,  " 
fprintf (out,  " 
fprintf (out,  " 
fprintf (out,  " 
fprintf (out, " 
fprintf (out,  " 
fprintf (out,  " 
fprintf (out,  " 


TIME_STEP  %g\n", simulate. dt)  ; 

TMIN  %g\n" , simulate . tmin) ; 

TMAX  %g\n" , simulate . tmax) ; 

PRINTjSTEP  %g\n" , simulate .print_dt) ; 

DELTA  %g\n" , simulate . delta) ; 

DELTA_MIN  %g\n" , simulate . delta_min) ; 
CONVERGE  %g\n" , simulate . converge) ; 
MAX_ITERATION  %d\n", simulate .max_iteration) ; 
REFERENCED")  ; 


for  (i  ”  0  ;  i  <  nnode  ;  i++) 

for  ( j  ■=  0  ;  j  <  nn  (i] ->nbr_subnode  ;  j++) 

( 


if  (rm  [ i ]  ->subnode  (  j]  ->ref_flag  «■«=  0) 
continue ; 

if  (nn [ i] ->subnode [ j] ->type  ““  0) 

fprintf (out, "  V  s  %20#  :  %-20s  %g\n", nn(i) ->name  , 

nn ( i) ->subnode ( j) ->name  ,  nn [i] ->subnode ( j) ~>init_volt) ; 

else 

fprintf (out, "  I  :  %20s  :  %-20s\n" , nn [ i ) ->name  , 
nn[i] ->aubnode ( j] ->name)  ; 


) 

fprintf (out , "  END\n!\n"); 


fprintf (out , "EXTERNAL  INPUTS\n" ) ; 


for  (i  -  0  ;  i  <  nbrq  ;  i++) 

{ 

fprintf (out , "  %20s  :  %20s  %10g  %10g\n",  ee (q [ i J ->elm] ->name, 

ee (q(i) ->elm] ->devioe->ext_in_name [q(i] ->var)  ,  q[i)->value, 
q ( i ) ->time) ; 

) 


fprintf (out, "  END\n!\n"); 

if  (out  !■»  stdout)  fclose  (out )  ; 


return  0; 


) 

read_  sim(in, filename,  ee,  nelm,  nn,  nnode, q, nbrq, simulate, pv) 

FILE  ‘in; 

char  ‘filename, • 

ELEMENT  **•«; 
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int  nelm; 

NODE  *  *  nn ; 
int  nnode; 

QUEUE  ***q; 
int  ‘nbrq; 

SIMULATE  ‘simulate; 

PRINT_VAR  *pv; 

{ 

STREAM__PTP  *strm,  stm; 
int  errflag, i, j; 

PRINT_VAR  ppv, *temp_pv, ‘old; 
QUEUE  “qq; 

SIMULATE  as; 
int  nq; 


/*  initialize  stream  pointer  structure  */ 
strm  »  &stm; 
stm. in  *  in; 

strcpy (stm. filename  ,  filename); 
stm.line_nbr  *■  0; 
stm. last  «■  NULL; 

/*  initialize  ppv  */ 

ppv. next  “  NULL; 

/*  load  the  simulation  */ 

errflag  «  0; 

load_simulation (istrm, ee, nelm, nn, nnode, &qq, Snq, &ss, 4ppv, ierrf lag) 

if  (errflag  !-  0) 

( 

printf  ("  “*  Load  SIMULATION  Section  ABORTED  “*\n")  ; 
return  0;  /*  don't  load  anything  if  there  was  an  error  */ 

) 


/*  free  the  old  queue  and  print_var  structures  */ 

for  (temp_pv  -  pv->next;  temp_jpv  !■  NULL  ;) 

( 

old  «  temp_pv; 

temp_pv  -  temp_pv->next ; 

free (old) ; 

) 

for  (i  «  0  ;  i  <  *nbrq  ;  i++) 
free ( (*q)  (i) )  ; 

free ( *q) ; 
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/*  assign  the  new  structures  */ 

(*q)  -  qq; 

*nbrq  *  nq; 

pv->next  *»  ppv.next; 

/*  change  the  Simulate  structure  */ 

simulate->dt  =  ss.dt; 

simulate->tmin  »  ss.tmin; 

simulate->tmax  “  ss.tmax; 

simulate->time  «  ss.time; 

simulate->max_iteration  *  ss ,max_iteration; 

simulate->converge  >=  ss. converge; 

simulate->delta  «  as. delta; 

simulate->delta_min  -  ss . delta_min; 

simulate->print_dt  **  ss.print_dt; 

return  0; 


write_init (out, e, nelm, nn,  nnode) 

FILE  *out; 

ELEMENT  **e; 
int  nelm; 

NODE  **nn; 
int  nnode; 

{ 

int  i,  j,  k,  ee,  v; 

fprintf  (out, " INITIALIZER ! \n" ) ; 

for  (i  •  0  ;  i  <  nelm  ;  i++) 

( 

/*  print  out  present  values  of  input  variables  */ 

for  ( j  «■  0  ;  j  <  e ( i] ->con . nbr_inputs  ;  j++) 

( 

fprintf (out, "  %20*  :  %20s  %  12 . 5g\n" ,  e ( i] ->name , 

e (i ) ->device->input_name ( j ) , e ( i ) ->con . in  l  j] )  ; 

) 


/*  print  out  present  values  of  state  variables  */ 


for  (j  ■  0  ;  j  <  e (i] ->con.nbr_states  ;  j++) 

( 

fprintf  (out,  "  %20s  t  *20s  'i  12 . 5g\n” ,  e  [  i)  ->name , 

e ( i ] ->device->state_name [ j ) , e ( i ) ->con  .  state  (  j  ) ) 

) 


) 
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fprintf (out, "  END\n ! \n" ) ; 

fprintf (out, "NODE  VOLTAGE  INITIALIZATION\n" ) ; 

for  (i  ■*  0  ;  i  <  nnode  ;  i++) 

( 

/ *  print  out  present  values  of  nodes  */ 

for  ( j  “  0  ;  j  <  nn [i] ->nbr_subnode  ;  j++) 

( 


/*  only  write  out  those  that  are  voltage  aubnodes  */ 

if  (nn(i] ->subnode ( j] ->type  !«  0  ) 
continue; 


/*  find  pointers  in  element  array  */ 


ee  »  nn ( i] ->subnode ( j ] ->elm_ptr [0] ; 
v  »  nn ( i] ->subnode ( j] ->var_ptr ( 0] ; 


) 


fprintf (out, "  %20s  :  %20s  %12.5g\n",  nn[i]->name  , 

nn [ i] ->aubnode ( j] ->name, e [ee] ->con. in [v] ) ; 


) 


fprintf (out, "  END\n ! \n" ) ; 

fprintf (out, "EXTERNAL  INPUTS  INITIALIZATION\n ! \n" ) f 


for  (i  ■  0  ;  i  <  nelm  ;  i++) 


/*  print  out  initial  values  of  external  inputs  */ 


for  ( j  ••  0  ;  j  <  e  ( i] ->con .  nbr_ext_in  ;  j++) 


fprintf (out , "  %20s  :  %20s  %12 . 5g\n" , e [ i] ->name , 

e [ i ] ->device->ext_in_name [ j ] ,  e ( i ] ->con . init_ext_in [ j ] ) 


fprintf (out, "  END\n!\n"); 

if  (out  !  «■  stdout)  fclose(out); 
return  0; 


) 

load_init (in, filename , e , nelm, nn , nnode ) 
FILE  ‘in; 

ELEI-1ENT  * *e ; 
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NODE  **nn; 
int  nnode; 
char  ‘filename; 

{ 

STREAM_PTR  *strm, atm? 
int  errf lag, i , j ; 

NODE  “tn; 

ELEMENT  “te; 
char  *calloc ( ) ; 

/*  initialize  the  stream  pointer  */ 
strm  *  Sstm; 
stm.in  «  in; 

atrcpy(stm. filename  ,  filename); 
atm .  line_nbr  “  0; 
atm.  last  *»  NULL; 

/*  allocate  Node  and  Element  Arrays  */ 

tn  =  (NODE  “)  calloc ( (unsigned)  nnode  ,  sizeof (NODE  *)); 
te  ”  (ELEMENT  **) calloc ( (unsigned)  nelm  ,  sizeof (ELEMENT  *) ) 

for  (i  ■*  0  ;  i  <  nnode  ;  i++) 

tn[i)  ■  (NODE  *)  calloc ( (unsigned)  1  ,  sizeof(NODE  )); 
for  (i  *  0  ;  i  <  nelm  ;  i++) 

te  [  i ]  «=  (ELEMENT  *)  calloc  (  (unsigned)  1  ,  sizeof  (ELEMENT)  ) 

/*  fill  up  the  arrays  */ 

for  (  i  “  0  ;  i  <  nelm  ;  i++) 

( 

te ( i) ->con .nbr_inputs  ■  e  [  i  ] ->con  .  nbr__inputs; 
te  (  i] ->con  .  nbr_states  ■>  e(i  ]->con.nbr_states; 
te (i) ->con.nbr_ext_in  »  e ( i ] ->con . nbr_ext_in; 

te ( i] ->device  «  e [i] ->device; 
te[i)->name  -  e[i]->name; 

te(i]->flag  «  e(i)->flag; 

te ( i) ->serial  ■  e [i] ->aerial; 

if  (te ( i] ->con .nbr_inputs) 
te ( i ) ->con . init  in  m 

(double  *)  calloc ( (unsigned) te ( i ) ->con . nbr_inputs  , 
if  (te [i] ->con.nbr_states) 
te (i) ->con. init_state  * 

(double  *)  calloc ( (unsigned) te ( i) ->con . nbr_states  , 
if  (te ( i ] ->con . nbr_ext_in) 
te [ i ) ->con . init_ext_in  • 

(double  *)  calloc ( (unsigned) te [ i ] ->con . nbr_ext  in  , 

) 


sizeof (double) ) 


sizeof (double) ) 
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for  (i  =  0  ;  i  <  nnode  ;  i++) 

{ 

tn[i)->name  “  nn (i) ->name; 

tn [i] ->nbr_3Ubnode  =■  nn (i) ->nbr_subnode; 

tn [ i] ->subnode  =  (SUBNODE  **)  cal loo ( (unsigned)  tn [ i] ->nbr_subnode , 

sizeof (SUBNODE  *)); 

for  (j  =  0  ;  j  <  tn [ i ) ->nbr_subnode  ;  j++) 

{ 

tn (i] ->subnode ( j]  =  (SUBNODE  *)  calloc  ((unsigned)  1, 

sizeof  (SUBNODE)); 

tn ( i] ->subnode ( j] ->type  =  nn[i] -> subnode [ j] ->type; 

tn(i] ->subnode [ j] ->init_volt  =  0.0; 

tn [ i ) ->subnode ( j ) ->name  ■  nn ( i ) ->subnode ( j) ->name ; 

} 

) 

errflag  =  0; 

i  =  load_initial (Sstrm,  te, nelm, tn,  nnode, Serrflag, 1) ; 

/*  see  if  the  load  had  an  error  */ 

if  (i  !■■=  0  ||  errflag  !«  0) 

{ 

printf ( "  ***  Load  INITIALIZATION  Section  ABORTED  ***\n"); 
return  0; 


/*  save  the  results  */ 

for  (i  «  0  ;  i  <  nelm  ;  i++) 

( 

if  (e [i] ->con.nbr_inputs  >  0) 

( 

free (e [ i] ->con . init_in) ; 
e [i ] ->con . init_in  =  te ( i) ->con . init_in; 

) 

if  (e ( i ] ->con . nbr_states  >  0) 

( 

free  (e ( i) ->con. init_atate ) ; 

e (i) ->con.init_state  ■  te ( i J ->con . init_state ; 

) 

if  (e  ( i ]  ->con.nbr_e*:t_in  >  0) 

( 

free (e [ i) ->con . init_ext_in) ; 

e  [ i  J ->con  .  init  ext_in  «  te  ( i)  ->con .  init_ext__in; 

) 

free (te [i] )  ; 

) 

free  (te)  ; 

for  ( i  ■=  0  ;  i  <  nnode  ;  i  +  +  ) 
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< 

for  (j  «  0  ;  j  <  nn [i] ->nbr_aubnode  ;  j++) 

{ 

if  (nn ( i] ->subnode [ j ] ->ref_f lag  »«  0)  /*  don't  change  ref  subnode  */ 
nn { i] ->subnode [ j] ->init_volt  =  tn ( i ] ->subnode ( j ] ->init_volt ; 
f ree (tn { i ] ->aubnode ( j) ) ; 

} 

free (te (i ] ) ; 

} 

free  (te ) ; 
return  0; 


) 


change_directory (filename ) 
char  *filename; 

( 

str strip ( filename ) ; 

if  (filename  [0]  <***  NULL) 

( 

printf("  Present  Working  Directory  i  ") ; 
f flush (stdout ) ; 

/*  The  following  line  is  system  dependent  */ 
system ( "pwd" ) ; 


printf("  Enter  New  Directory  :  ") ; 
gets  (filename ) ; 
strstrip ( filename )  ; 
if  (filename (0]  mm  NULL)  return; 


if  (chdir (filename)  !«  0) 

printf("  ***  ERROR  :  change  directory  unsuccessful\n\n" ) ; 

) 
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/*  gauss_eliminate .  c  */ 

/*  Norbert  H.  Doerry 

14  February  1989 

This  routine  solves  a  general  system  of  linear  equations  using 
Gaussian  Elimination  with  partial  pivoting.  The  function  returns 
a  value  of  0  if  all  went  well,  and  a  value  of  1  if  the  matrix 
is  singular 

14  Feb  modifications: 

The  a  matrix  is  no  longer  preserved,  neither  is  the  c  matrix 


*/ 

♦include  <stdio.h> 
♦define  DEBUG  0 


♦define  aa  a 
♦define  cc  c 

gaus3_eliminate (n, a,  c, x) 

int  n;  /*  The  dimension  of  the  system  */ 

double  *a;  /*  input  matrix  that  is  dimensioned  n  by  n  */ 

double  *c;  /*  The  right  hand  vector  dimensioned  n  */ 

double  *x;  /*  The  solution  to  the  system  of  linear  equations  */ 

< 

char  *calloc ( ) ; 
double  pivot, temp; 
int  i, j , k, pvt; 

/*  print  out  the  matrix  if  DEBUG  is  set  */ 

for  (k  ■  0  ;  k  <  n  St  DEBUG  ;  printf<"  :  %10 . 4f \n” ,  c [ k++] ) ) 
for  (j  =  0;  j  <  n  ;  j++) 

printfC  %3.0f",a[j*n  +  k]  )  ; 

if  (DEBUG)  printf  ( " \n" )  ; 

/*  the  input  arrays  are  not  preserved  */ 

/*  print  out  the  matrix  if  DEBUG  is  set  */ 

for  (k  -  0  ;  k  <  n  SS  DEBUG  ;  printfC  :  %10.4f  \n",  cc  [k++]  )  ) 
for  (j  «  0;  j  <  n  ;  j++) 

printfC  %3  .Of"  ,  aa  (  j*n  +  k)  )  ; 

if  (DEBUG)  printf ("\n") ; 

/*  triangular ize  matrix  */ 

for  (i«0;i<n;  i++) 

< 
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/*  find  pivot  */ 
pvt  =  i ; 

pivot  ”  aa[i  +  i*n]*aa[i  +  i*n) ; 

for  (j  =  i+1  ;  j  <  n  ?  j++) 

i 

if  (DEBUG)  printf ("%7.4f  ::  %7 . 4 f \n" , pivot , aa [ j  +  i*n]*aatj  +i*n]) 

if  (pivot  <  aa(j  +  i*n]*aa(j  +  i*n)) 

{ 

pivot  “  aa(j  +  i*n)  *  aa[j  +i*n); 
pvt  -  j; 

) 

) 

pivot  =  aa(pvt  +  i*n]  ; 

/*  see  if  singular  matrix  */ 

if  (pivot  ==  0) 
return  1; 

/*  switch  rows  if  necessary  */ 

if  (i  !>=  pvt) 

{ 

for  (j  ■=  i  ;  j  <  n  ;  j++) 

{ 

temp  =  aa(i  +  j*n]  ; 

aa(i  +  j*n]  “  aa(pvt  +  j*n]  /  pivot;  /*  make  pivot  1  */ 
aatpvt  +  j*n]  =  temp; 

) 

temp  =*  cc  ( i]  ; 

cc[i]  =  cc(pvt]  /  pivot; 

cclpvt]  »  temp; 

) 

else  /*  make  pivot  equal  to  one  */ 

( 

cc[i]  /  =>  pivot; 
for  (j  “  i  ;  j  <  n  ;  j++) 
aa(i  +  j*n]  /-=  pivot; 

) 

/*  get  zeros  under  pivot  */ 

for  (j  -  i+1  ;  j  <  n  ;  j++) 

( 

if  ((temp  «  aa(j  +  i*n] )  “  0)  continue; 
for  (k  ■  i  ;  k  <  n  ;  k++) 

aa [ j  +  k*n]  —  temp  *  aa[i  +  k*n]  ; 
cc( j)  -=  temp  *  cc[i); 

) 

/*  print  out  the  matrix  if  DEBUG  is  set  */ 
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for  (k  -  0  ;  k  <  n  &&  DEBUG  ;  printf("  :  %10 . 4f \n", cc (k++] ) ) 
for  (j  »  0;  j  <  n  ;  j++) 

printfC'  %3  .Of " ,  aa  (  j*n  +  k] )  ; 

if  (DEBUG)  printf  ("\n") ; 


/*  aa [ ]  should  be  triangularized  */ 

/*  print  out  the  matrix  if  DEBUG  is  set  */ 

for  (i  =  0  ;  i  <  n  S&  DEBUG  ;  printf ("  :  %10 . 4f \n" , co [ i++) ) ) 
for  (j  =  0;  j  <  n  ;  j++) 

printfC  %3  .Of ",  aa  (  j*n  +  i)  )  ; 
if  (DEBUG)  printf <"\n") ; 

/*  back  subsitute  */ 


for  (i  =  n-1  ;  i  >*•  0  ;  i  — ) 

( 

x  [  i  ]  =  cc  [  i )  ; 

for  (j  =  i+1  ;  j  <  n  ;  j++) 
x(i)  -•>  aa  ( i  +  j*n)  *  x[jj; 

} 

return  0; 
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/*  integ.c  */ 

/*  Norbert  H.  Doerry 

18  October  1988 


This  routine  uses  trapezoidal  integration  to  integrate  a  variable 
of  the  form 

dx/dt  =  f  (x  (t)  ,  y  (t)  ,  t) 

x ( t )  -  x (t  -  dt)  *  [dt/2] * (f (x(t) , y(t) ,t)  +  f (x (t-dt ), y (t-dt ),  t-dt)  ] 

This  routine  returns  G  (x)  which  is  : 

G(x>  -  x (t )  -  x(t-dt)  -  [dt/2] *  t f (x(t) ,  y  (t) ,  t)  4  f(x (t-dt) ,y (t-dt) , t-dt) ] 

This  variable  should  be  driven  to  zero  with  Newton  Raphson  in  order 
to  determine  the  proper  new  variable 


*/ 

doub  Le 

integ (x, xold, 

fx, 

fxold,  dt) 

doub  Le 

X  t 

/* 

x(t) 

*/ 

doub  Le 

xold; 

/* 

x(t  -  dt) 

*/ 

doub  Le 

fx; 

/* 

f  (x  (t)  ,  y  (t)  , 

t) 

*/ 

doub  Le 

fxold; 

/* 

f  (x  (t  -  dt)  , 

y (t  -  dt) , 

t-dt)  */ 

doub  Le 

1 

dt ; 

/* 

dt 

*/ 

\ 

re  ;urn  x  -  xold  - 

(dt 

/  2.0)  *  (fx 

4  fxold) ; 

) 
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/*  ioliba. c  */ 

/*  Norbert  H.  Doerry 

Last  update  :  25  March  1988 

This  library  contains  a  set  of  routines  to  augment  the  10  functions 


in  the  standard  10  libraries. 

*/ 

/*  rev  a:  10  July  88:  fixed  stofa  */ 

/*  rev  b:  11  July  88:  added  suctolc, slctouc, parse  */ 

/*  rev  c:  24  Oct  88:  added  strsplit, strstrip, Stofa, revised  getflta  */ 

/*  rev  d:  10  Nov  88:  fixed  getflta  */ 

/*  rev  e:  11  Nov  88:  modified  stofa,  added  stoda,  Stoda  */ 

/*  rev  f:  25  Mar  89:  added  strextract  */ 


♦include  <stdio.h> 

♦include  <strings.h> 

♦define  MAX_EXP  38  /*  maximum  sized  exponent  for  system  */ 


/*  stofa  */ 

/*  converts  a  string  to  an  array  of  floating  point  numbers  */ 
/*  passes  back  the  array  and  the  number  of  numbers  successfully  */ 
/*  converted.  The  returned  value  is  a  zero  if  read  successfullly  */ 
/*  to  end  of  line,  otherwise,  returns  the  character  that  reading  */ 
/*  failed  at.  The  third  argument  passed  to  the  function  is  the  */ 
/ *  maximum  number  of  elements  in  the  array  */ 
/*  rev  a:  10  July  88:  fixed  bug  that  caused  extra  number  to  be  converted  */ 
/*  rev  e:  11  Nov  88:  Added  exponential  notation  */ 


stofa  (string,  flt.aptr,  nbrptr ) 
char  stringU; 
float  flt.aptr(]; 
int  *nbrptr; 

int  sign; 
int  index  **  0; 
float  power  ; 
int  maxlen,i; 
char  ch; 
float  inch; 

int  exponent, exp_sign; 

maxlen  -  *nbrptr; 

‘nbrptr  =  0; 

/*  strip  off  leading  blanks  and  tabs  */ 

while  ( (ch«string ( index++ ] )  ■■  '  '  I i  ch  «■  '  \t'  )  ; 

/*  convert  the  numbers  */ 

while  ( (ch  >=  ' 0'  ch  <®  ' 9' )  |  |  ch  ■■  '  . '  | |  ch  ■■  '  +  '  |  (  ch  ■«  ' 
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| I  ch  —  ' , '  ||  ch  —  ' ; '  | |  oh  —  ' : '  | |  ah  —  ' | |  ah  —  '  E' ) 

< 

sign  -  1;  /*  default  is  positive  */ 

power  -  10.0; 
exponent  =  0; 
exp_sign  “  1; 

if  (  ch  —  '  ||  ch  --  ' +' ) 

( 

sign  «  (ch  *»«=  '  )  ?  -1  :  1; 

ch  “  string (index++]; 


fl‘  "iptr  (*nbrptr]  «  0;  /*  initialize  value  */ 
while  (ch  >-  '0'  &&  ch  <-  '  9' ) 

{ 

f ltaptr (*nbrptr]  10.0; 

f ltaptr (*nbrptr)  +*■  (float)  (ch  -  '  0' )  ; 
ch  «  string (index++] ; 

) 

if  (ch  •*«'.')  /*  check  for  decimal  point  */ 

while  ( (ch  -  string  ( index++] )  >-  '0'  &&  ah  <■*  '9') 

{ 

f ltaptr [ *nbrptr]  +“  (float)  (ch  -  '0')  /  power; 
power  *«  10.0; 

} 


else  if  (ch  ■■  '-')  /*  check  for  ft-in  entry  */ 

( 

i.f  (  (ch  «  string ( index++]  )  >“  '0'  &&  ch  <»  '9') 

( 

inch  “  ch  -  ' 0' ; 

/*  see  if  11  or  12  inches  */ 

if  (inch  ■■  1  | |  inch  ■"  0) 

if  ((ch  "  string [ index++) )  '0'  ||  ch  mm  '  1' ) 

{ 

inch  *-  10.0; 

inch  +■  (float) (ch  -  '0'); 

) 

else 

index — ; 

power  m  10.0; 

if  ((ch  •«  string  ( indax++J )  *•“  '.')  /*  ft-decimal  inch  */ 

( 

while  ( (ch  ■  string  (index++J )  ><•  '0'  ii  ch  <■  '9') 

( 

inch  +■  (float)  (ch  -  '0')  /  power; 
power  *-  10; 

) 

) 
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•la*  if  (oh  «-  /*  ft-inch-aighth  */ 

{ 

if  ((eh  «  string { index++] )  >■  '0'  St  ch  <»  '7') 

( 

inch  +-  (float) (oh  -  '0')  /  8.0; 
if  ((ch  -  string ( index++] )  ■■  '.') 

while  ((oh  ■  string [index++] )  >■  'O'  6S 
oh  <«  ' 9' ) 

( 

inch  +-  (float)  (oh  -  '0')  /  (8.0  *  power); 
power  *“  10.0; 

) 

) 

) 

fltaptr  [*nbrptr]  +■•  inch  /  12.0; 

) 

) 


/*  check  for  exponent  */ 

if  (ch  —  '  e'  ||  oh  —  'E') 

( 

/*  if  the  mantissa  is  not  specified  but  an  exponent  was  specified 
set  the  mantissa  to  1.0  */ 

if  (fltaptr (*nbrptr]  -■  0  ss  atring[index  -  2]  !>•  'O'  fit 
stringdndex  -  2]  !-'.') 

f Itaptr [*nbrptr]  «  1.0; 

/*  get  the  next  character  */ 

ch  ■  string [index++] ; 

•xp_sign  “  1; 
power  -  10; 

/*  get  the  sign  of  the  exponent  */ 

if  (  ch  —  ' ||  ch  —  '  +'  ) 

( 

•xp_sign  “  (oh  --'-')  ?  -1  :  1; 
oh  -  string (index++) ; 

) 


/*  get  the  actual  exponent  value  */ 

exponent  «  0;  /*  initialize  value  */ 
while  (oh  >-  '0'  S(  oh  <-  '9') 

< 

exponent  10; 
exponent  +■>  ch  -  'O'; 
ch  »  string [index++] ; 

) 
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) 

/*  ensure  exponent  is  not  too  large  */ 

/*  MAX_EXP  is  the  max  size  of  an  exponent  (le+MAX_EXP  is  legal)*/ 

exponent  *«  exp_sign; 

while (fltaptr (*nbrptr]  >  1.0) 

{ 

f ltaptr [ *nbrptr )  /«  10.0; 
exponent++; 

) 

while (fltaptr (*nbrptr)  <  0.0) 

{ 

fltaptr [ *nbrptr]  *»  10.0; 
exponent — ; 

) 

exp_sign  -  (exponent  <  0)  ?  -1  ;  1; 

exponent  «  (exponent  <  0)  ?  -exponent  :  exponent; 

if  (exponent  >  MAX_EXP) 

( 

exponent  ■*  MAX_EXP; 

fltaptr ( *nbrptr]  -  (exp_sign  -1)  ?  0.0  :  1.0; 

) 

/*  multiply  number  by  its  exponent  */ 

power  “  (exp_sign  “«  -1)  ?  0.1  :  10.0; 

for  (i  •«  0  ;  i  <  exponent  ;  i++) 
f ltaptr ( *nbrptr]  *«  power; 

/*  multiply  number  by  its  sign  */ 

fltaptr ( *nbrptr)  *»  sign; 

( *nbrptr) ++; 

/*  stop  if  converted  maximum  number  of  elements  */ 
if  (*nbrptr  ••*=  maxlen)  break; 

/*  see  if  illegal  character  following  a  legal  number  V 

if  (ch  »-  ' ||  ch  ■■  '+'  I  I  ch  ' 8 '  ||  ch  ■■  '9'  II  ch  «•  1  . ' ) 
break; 

/*  ignore  delimiting  spaces  */ 
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while  (ch  ■■  '  '  | |  ch  ■■  ' \t' ) 

ch  •  string [index++] ; 

/ *  ignore  delimiting 

if  (  ch  •»»  '  : '  |  |  ch  '  I  I  oh  , '  ) 

while  ( (ch  *  string (index++] )  «  '  '  ||  oh  ■■  '\t'); 

/*  interpret  successive  :  i  ,  as  zero  entries  in  the  array  */ 

while  (  oh  —  '  : '  ||  oh  —  '  ; '  | |  eh  — '  , '  ) 

( 

if  (*nbrptr  <  maxlen) 

( 

fltaptr (‘nbrptr]  »  0; 

(*nbrptr) ++; 

) 

else  break; 

while((ch  ■  string t index++] )  mm  '  '  | |  ch  ■■  ' \t' ) ; 

} 


) 

return  (ch) ; 

) 

/*  stoda  */ 

/*  converts  a  string  to  an  array  of  double  precision  floating  point  numbers  */ 


/*  passes  baok  the  array  and  the  number  of  numbers  successfully  */ 
/*  converted.  The  returned  value  is  a  zero  if  read  successfullly  */ 
/*  to  end  of  line,  otherwise,  returns  the  character  that  reading  */ 
/*  failed  at.  The  third  argument  passed  to  the  function  is  the  */ 
/*  maximum  number  of  elements  in  the  array  */ 


stoda (string, fltaptr, nbrptr) 
char  string! ); 
double  fltaptr(]; 
int  ‘nbrptr; 

( 

int  sign; 
int  index  •  0; 
double  power  ; 
int  maxlen, i; 
char  ch; 

int  exponent, exp_sign; 

maxlen  ■  ‘nbrptr; 

‘nbrptr  •  0; 

/*  strip  off  leading  blanks  and  tabs  */ 

while  (  (ch«atring(index++)  )  «*"  '  '  I  |  ch  »■  '\t'); 
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/*  convert  the  numbers  */ 

while  ((ch  >■  '0'  a  oh  <■  '9')  | |  ch  «  ' f I  ch  —  '+'  | |  oh  — 

I |  ch  —  '  , '  ||  ch  —  ' ; '  | |  ch  —  ' i'  | |  ch  —  | I  ch  —  'E' > 

{ 

sign  —  1;  /*  default  is  positive  */ 

power  «  10.0; 
exponent  -  0; 
exp_sign  “1; 

if  (  ch  —  ' ||  ch  —  '  +'  ) 

{ 

sign  -  (ch  —  ?  -1  t  1; 

ch  “  string (index++) ; 

) 

f ltaptr ( *nbrptr]  »  0;  /*  initialize  value  */ 
while  (ch  >»  '0'  66  ch  <■  '9') 

( 

f ltaptr t *nbrptr]  *«  10.0; 
f ltaptr ( *nbrptr]  +«  (float)  (ch  -  '0'); 
ch  *  string [index++]  ; 

) 

if  (ch  /*  check  for  decimal  point  */ 

while  ( (ch  "  string (index++) )  >-  'O'  tt  oh  <•>  '9') 

( 

f ltaptr ( *nbrptr]  +*  (float)  (ch  -  '0')  /  power; 
power  *■  10.0; 

) 

/*  check  for  exponent  */ 

if  (ch  —  ' e'  ||  ch  —  'E') 

< 

/*  if  the  mantissa  is  not  specified  but  an  exponent  was  specified 
set  the  mantissa  to  1.0  */ 

if  (f ltaptr ( *nbrptrj  «■  0  it  stringfindex  -  2)  1“  '0'  64 
stringlindex  -  2]  !■  '.') 

f ltaptr { *nbrptr)  ■  1.0; 

/*  get  the  next  character  */ 

ch  «  string(index++) ; 

exp_sign  ■  1; 
power  -  10; 

/*  get  the  sign  of  the  exponent  */ 

if  (  ch  —  ' II  ch  —  '  +'  ) 

( 
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exp_sign  ■  (ch  «*■'-')  ?  -1  t  1; 
ch  »  string (index++]; 


/*  get  the  actual  exponent  value  */ 

exponent  »  0;  /*  initialize  value  */ 
while  (ch  >■  '0'  it  ch  <«  '9') 

< 

exponent  *>■  10; 
exponent  +«  ch  -  'O'; 
ch  -  string tindex++] ; 

) 

) 


/*  ensure  exponent  is  not  too  large  */ 

/*  MAX_EXP  is  the  max  size  of  an  exponent  (le+MAX_EXP  is  legal)*/ 

exponent  **  exp_sign; 

while (fltaptr ( *nbrptr]  >  1.0) 

( 

fltaptr [ *nbrptr]  /“  10.0; 
exponent++; 

> 

while (fltaptr (*nbrptr]  <  0.0) 

( 

fltaptr ( *nbrptr)  *»  10.0; 
exponent--; 

) 

exp_sign  -  (exponent  <  0)  ?  -1  :  1; 

exponent  -  (exponent  <  0)  ?  -  exponent  :  exponent; 

if  (exponent  >  MAX_EXP) 

( 

exponent  “  MAX_EXP; 

fltaptr ( *nbrptr]  ■  (exp_aign  ““  -1)  ?  0.0  :  1.0; 

) 


/*  multiply  number  by  its  exponent  */ 

power  “  (exp_eign  “»  -1)  ?  0.1  i  10.0; 

for  (i  -  0  ;  i  <  exponent  ;  i++) 
fltaptr ( *nbrptr)  *-  power; 

/*  multiply  number  by  its  sign  */ 

f ltaptr ( *nbrptr ]  *-  sign; 

(*nbrptr) ++; 
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/*  atop  if  converted  maximum  number  of  elements  */ 
if  (‘nbrptr  **■*  maxlen)  break; 

/*  see  if  illegal  character  following  a  legal  number  */ 

if  (ch  —  ' |  |  ch  —  ' +'  | |  eh  —  '  . '  ) 

break; 

/*  ignore  delimiting  spaces  */ 

while  (ch  mm  •  '  I  I  ch  mm  '  \t'  ) 

ch  -  string [index++] ; 

/*  ignore  delimiting  •.;,*/ 

if  (  ch  '  | I  ch  '  | |  ch  > 

while  (  (ch  *  string (index++] )  «■=  '  '  |  |  ch  '  \t '  )  ; 

/*  interpret  successive  :  s  ,  as  zero  entries  in  the  array  */ 

while  (  ch  mm  i  : '  |  |  ch  ■«  ' ; '  | |  ch  ■*', 1  ) 

( 

if  (*nbrptr  <  maxlen) 

( 

f ltaptr [ *nbrptr ]  *  0; 

( *nbrptr) ++; 

) 

else  break; 

while ((ch  «  string ( index++] )  ■»  '  '  | |  ch  '\t'); 

) 


} 

return  (ch) ; 

) 

/*  Stofa  */ 

/*  NHD 

Stofa  is  like  stofa  except  that  maxnum  is  specified  as  a  separate 
argument  from  nbrptr 

*/ 

Stofa (inline, f ltaptr, nbrptr , maxnum) 
char  ^inline; 
float  *fltaptr; 
int  ‘nbrptr , maxnum; 

( 

‘nbrptr  “  maxnum; 

return  stofa  (inline, f ltaptr, nbrptr) ; 

) 

/•  Stoda  */ 

/*  NHD 

Stoda  ia  like  stoda  except  that  maxnum  is  specified  as  a  separate 
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argument  from  nbrptr 

*/ 

Stoda (inline, fltaptr, nbrptr, maxnum) 
char  * inline; 
double  ‘fltaptr; 
int  ‘nbrptr , maxnum; 

{ 

"nbrptr  »  maxnum; 

return  stoda (inline, fltaptr, nbrptr) ; 

) 

/*  getflta  */ 

/*  NHD 

Get  a  string  from  stdin,  and  convert  to  an  array  of  floating 
point  numbers.  Return  a  NOLL  if  read  to  end  of  line,  or 
return  the  character  that  the  conversion  failed  in. 

rev  c:  added  maxnum  as  an  argument 

*/ 

♦define  LEN  131 

getflta (fltaptr, nbrptr,  maxnum) 

float  fltaptr (];  /*  floating  number  array  ‘/ 

int  ‘nbrptr;  /*  pointer  holding  number  of  numbers  converted  »/ 

int  maxnum;  /*  maximum  size  of  fltaptr  */ 

< 

char  inline [LEN]; 
gets (inline) ; 

return (Stof a (inline, fltaptr, nbrptr, maxnum) ) ; 

) 

/*  f getflta  */ 

/*  Norbert  H  Doerry 
31  March  1988 

Get  a  string  from  a  file,  and  convert  it  to  an  array 
of  floating  point  numbers.  Return  a  NULL  if  read  to  end  of 
line,  or  return  with  the  character  the  conversion  failed. 

Returns  a  -1  if  an  EOF  received. 

rev  c:  added  maxnum  as  an  argument 

*/ 

fgetf lta (file, fltaptr , nbrptr, maxnum) 

FILE  ‘file; 
float  fltaptr []; 
int  ‘nbrptr , maxnum; 

( 

char  inline [LEN]; 
int  ans; 
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if  (fgets (inline, LEN, file)  —  NULL) 
return  -1; 

ans  -  Stofa (inline, fltaptr, nbrptr , maxnum) ; 
if  (ana  "  '  \n'  )  ans  ■»  NULL; 
return  ans; 


/*  parse  */ 

/*  Norbert  H  Doerry 
IX  July  1988 

Parse  a  string  into  its  elements  that  are  separated  by  spaces. 

maxlen  is  the  maximum  length  of  a  parse  element. 

mascnt  is  the  maximum  number  of  elements  to  parse. 

cnt  is  the  number  of  elements  parsed. 

array  contains  the  parsed  strings. 

rev  c:  also  ignores  tabs 

V 

parse (string,  array, maxlen, maxcnt, cnt) 

char  string [); 

char  array [ ) ; 

int  maxlen, maxcnt , *cnt; 


int  i,  j,  k; 
i  -  j  -  k  «  0; 

while  (string(i)  !»  NULL  S4  k  <  maxcnt) 

{ 

j  -  0; 

/*  atrip  off  leading  spaces  and  tabs  */ 

while  (atring(i)  — ■  '  '  | |  string(i]  »■  '\t'  )  i++; 

/*  move  characters  to  array  */ 

while  (string[i]  !-  '  '  ii  stringli)  !-  NULL  it 
string(i]  1“  ' \t'  ((  j  <  maxlen  -  1) 
array (k*maxlen  +  j++)  ”  string(i++); 

/*  terminate  array  element  with  NULL  */ 

array [k*maxlen  +  j]  »  NULL; 

/*  read  to  end  of  element  if  exceed  maxlen  */ 

while  (string(i)  !■  '  '  66  string[i)  !■  '\t'  string(i)  !“  NULL)  i++; 
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/*  increment  word  counter  */ 
k++; 

} 

*cnt  »  k; 


/*  suctolc  */ 

/*  Norbert  Doerry 
11  July  1988 

This  converts  all  the  upper  case  characters  in  a  string  to  lower  case 

V 

suctolc (instring, outstring) 
char  instring (], outstring (] ; 

( 

int  i; 

for  (i  =*  0;  instring (i]  !«  NULL  ;  i++) 

( 

if  (instring[i)  >*>  'A'  &&  instring(i]  <»  '  Z' ) 
outstringti]  »  instringti]  -  'A'  +  'a'; 
else 

outstringti]  •  instring(i]; 

} 

outstring [i]  -  NULL; 


/*  slctouc  */ 

/*  NHD 

This  converts  all  the  lower  case  characters  in  a  string  to  upper  case 

*/ 

slctouc (instring, outstring) 
char  instring (), outstring (] ; 

{ 

int  i; 

for  (i  “  0;  instring  [i]  ! «»  NULL  ;  i++) 

< 

if  (instring(i)  >-  'a'  &&  instringti)  <-  '  z'  ) 
outstring(i)  «  instringti]  -  'a'  +  'A'; 

else 

outstring (i]  -  instringti]; 

> 
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outstring(i)  *  NULL; 

) 


/*  strcmpa  */ 

/*  Norbert  H  Doerry 
11  July  1988 

This  is  like  strcmp,  except  that  case  of  letters  are  not  considered 

*/ 

strcmpa (stringl, string2) 
char  *stringl, *string2; 

{ 

char  *strl,*str2; 
char  *malloc(); 
int  ans; 

strl  =  malloc ( (unsigned)  strlen (stringl)  +  1); 
atr2  =  malloc ( (unsigned)  strlen (string2 )  +  1); 

slctouc (stringl,  strl)  ; 
slctouc (string2,  str2)  ; 
ans  =  strcmp (strl, str2) ; 
free (strl) ; 
free (str2 )  ; 
return  ana; 


/*  atrncmpa  */ 

/*  Norbert  H  Doerry 
11  Juloy  1988 

This  is  like  atrncmp,  except  that  case  of  letters  are  not  considered 

*/ 

strncmpa (stringl, string2, n) 
char  *stringl , *string2; 
int  n; 

( 

char  *atrl, *str2; 
char  *malloc(); 
int  ans; 

strl  «  malloc ( (unsigned) strlen (stringl)  +  1); 
str2  ■  malloc ( (unsigned) strlen (string2)  +  1); 

slctouc (stringl , strl)  ; 
slctouc (string2 ,  str2)  ; 
ans  “  strncmp (strl, str2,n) ; 

free (strl) ; 
free (str2) ; 
return  ana; 

) 
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/*  atrsplit  */ 

/*  This  routine  roturns  •  substring  of  an  input  string.  Th«  substring 
begins  sftsr  n  words  srs  encountered  in  the  input  string.  It  snds 
on  the  snaountsr  of  a  nsw  lino  character  or  the  end  of  the  input 
string,  len  is  the  maximum  length  of  string. 

»/ 

at r split (ini ine, a, n, len) 
ohar  ‘inline, *s; 
int  n,lan; 


int  i,  j, k; 
i  »  0; 

while  (inline  (i]  «<•'')  i++;  /*  strip  off  leading  blanks  */ 

for  (j  ■  0;  j  <  n  &&  inline (i]  !■  NULL  ;  j++)  /*  read  in  n  words  */ 

( 

while  ( inline ( i ]  !-  NULL  &&  inline(i)  !-  '  '  &&  inline(i)  !-  ' \t' )  i++ 

/*  strip  off  trailing  blanks  and  tabs  */ 

while  (inline [i]  '  '  ||  inline  (i)  —  ' \t' )  i++; 

) 

k  -  0; 

/*  aopy  string  */ 

while  (inline(i)  !*=  NULL  &&  inline(i)  !■=  '  \n'  &&  k  <  len  -  1) 
s(k++]  =  inline [i++]; 

/*  terminate  with  NULL  */ 

s(k]  =  NULL; 

/*  strip  off  trailing  blanks  */ 

for  (j  *=  strlan(s)  -  1  ;  s(j]  '  '  ||  e[j]  <*«  '\t'  )| 

a [ j)  -=  '  \n'  ;  a  [  j  —  ]  -  NULL) ; 


) 

/*  strstrip  */ 

/*  strstrip  strips  a  string  of  leading  and  trailing  spaces  and  tabs  */ 

strstrip (s) 
char  *s; 

( 

int  i, j; 

/*  find  first  none  space  or  tab  */ 
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for  (i  =  0  ;  a (ij  '  '  ||  s(i]  —  '  \t'  ;  i++)  ; 

/*  copy  string  */ 

for  (j  -  0  ;  a [i]  !=  NULL  ;  a(j++]  -  s(i++]); 
a  [  j]  -  NULL; 

/*  delete  trailing  spaces  and  tabs  and  Cr*/ 

for  (j  ■  strlan(s)  -  1  ;  s(j)  --  '  '  ||  s(j]  —  '\t'  II 

s(  j]  —  '  \n'  ;  s[  j  — ]  -  NULL)  ; 

) 

/*  straxtract  */ 

/*  straxtract  returns  the  nth  word  in  a  string  */ 
straxtract (in, out, n, len) 

char  *in,*out;  /*  in  is  the  input  string  ,  out  is  the  output  string  */ 

int  n,len;  /*  n  is  the  desired  word  number  ,  len  is  max  len  of  out  */ 

( 

int  i, j; 

/*  strip  off  the  leading  spaces  and  tabs  */ 

for  (i  -  0  ;  in  (i]  —  '  '  ||  in[i]  —  '\t'  ;  i++) ; 

/*  ignore  the  first  n-1  words  */ 

for  (j  “  0  ;  j  <  n  -  1  ;  j++) 

( 

while  ( in [i ]  !-  '  '  &&  in[i]  !-  '  \t'  &&  in[i)  !-  NULL)  i++; 

while  (in(il  '  '  ||  in[i]  '  \t' )  i++; 

} 

/*  copy  the  nth  word  */ 

for  (j  -  0  ;  j  <  len  -  1  ((  in(i)  !■  NULL  &&  in[i]  !-  '  '  it  in[i)  I-  '\t' 

&&  in(i)  !■  ' \n'  ;  j++  ,  i++) 

( 

out ( j ]  -  in ( i ]  ; 

) 

out[j]  -  NULL; 


) 


314 


load  device. c 


/*  load_device . c  */ 

/*  Norbert  H.  Doerry 

22  October  1988 

This  routine  loads  in  the  device  characteristics  for  a  given  number  of 
devices . 


*/ 

♦include  <stdio.h> 
♦include  "doerry. h" 


load_device (d, n, in, typ, d  function, d_name, ndev) 

DEVICE  **d;  /*  array  of  pointers  to  device  structures  */ 

int  n;  /*  number  of  device  structures  to  read  in  */ 

int  typ;  /*  beginning  number  used  for  type  */ 

FILE  *in;  /*  input  file  stream  */ 

int  (**d_function) ( ) ;  /*  array  of  pointers  to  device  functions  */ 

char  *d_name(];  /*  array  of  device  names  */ 

int  ndev;  /*  total  number  of  devices  */ 

( 

int  i  ,  j  ,  k  ,  ans  ,  type; 


ans  -  0; 
typa  -  typ; 

/*  read  in  data  from  file  */ 

for  (i«0  ;  i  <  n  ;  typa++  ,  i++) 

{ 

j  »  read_device (d (i] , in, typa) ; 

/*  see  if  bad  data  */ 

if  (j  »=  1) 

{ 

printf("  ERROR  reading  %d  device  :  %s\n" , typa , d [ i ) ->name) ; 
ana  »  1 ; 

) 

else  if  (j  —  2) 

{ 

printf("  EOF  reached  reading  %d  device  :  %s\n", typa, d (i ] ->name) 
return  2; 


for  (k  «  0  ;  strcmp (d [i] ->name, d_name [k] )  !■  0  &&  k  <  ndev  ;  k++) ; 

if  (k  <  ndev)  /*  found  the  name  */ 

{ 

d[ij->f  =  d_function (k) ;  /*  copy  the  function  address  */ 

) 

else 
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( 

printf("  ERROR  devica  %a  ia  undafinad  s  %a\n", d [i] ->nama) / 

ans  «*  1 ; 

) 

) 

return  ans; 

> 
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/ *  load_element .c  */ 

/*  Norbert  H.  Doerry 

9  November  1988 

This  file  contains  a  function  for  loading  the  element  descriptions 
from  an  input  file.  The  form  of  the  element  description  is  i 


DEVICE  ELEMENT 

PARAMETER_NAME  PARAMETER 

II  II 

\l  1/  \l  1/ 

\  /  \  / 

END 

where 

DEVICE  is  the  name  of  the  device  type  (i.e.  resistor) 

ELEMENT  is  the  specific  element  name  (i.e.  Rl) 

PARAMETER  NAME  is  the  name  of  the  DEVICE  PARAMETER  (i.e.  R) 
PARAMETER  is  the  value  of  the  Parameter  (i.e.  100  ) 

additionally,  an  INCLUDE  statement  can  be  substituted  for  an 

Element  Description.  An  INCLUDE  statement  has  the  following 
form: 

INCLUDE  filename 

where  'filename'  is  another  file  containing  element  descriptions 
***  Modified  9  January  *** 

changed  parameter  for  passing  stream.  Now  pass  structure 
of  STREAM_PTR  instead  of  FILE.  This  improves  include  file 
handling . 


*/ 

/*  The  following  structure  is  used  to  read  in  the  elements  because  the 
total  number  of  elements  is  not  known  until  all  the  devices  are  read 
in . 

*/ 

♦include  <stdio.h> 

♦include  "doerry. h" 

typedef  struct  £lement_Ptr 

( 

ELEMENT  *e; 

struct  Element_Ptr  *last; 

) 

ELEMENT  PTR; 


/*  present  element  */ 

/*  pointer  to  last  structure  holding  element  */ 
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int  lnad_element (strml,  at, nelm, dev, ndev,  errf lag) 

STREAM_PTR  **atrml; 

ELEMENT  ***•«;  /*  pointer  to  array  o£  clamant  daacrlptlona  */ 

int  *nelm;  /*  number  of  element#  read  in  */ 

DEVICE  **dev;  /*  array  of  device  deaariptiona  */ 

int  ndev;  /*  number  of  devioea  in  above  array  */ 

int  *errflag; 

< 

ELEMENT_PTR  *temp_elmnt  ,  *elmnt; 

ELEMENT  **e; 

int  i, flag, aerial; 

char  *ealloc(); 

STREAM_PTR  *temp_atrm, *strm; 
char  filename [MAXCHAR] ; 

/*  initialize  starting  structures  */ 

elmnt  «=  (ELEMENT_PTR  *)  calloc ( 1 ,  sizeof (ELEMENT_PTR) ) ; 
elmnt->e  -  (ELEMENT  *)  calloc ( 1 , sizeof (ELEMENT) ) ; 

elmnt->last  *  NULL;  /*  indicator  that  this  is  the  first  stream  */ 

serial  -  1; 

while  (1) 

{ 

strm  ■*  *strml; 

flag  “  read_element (elmnt->e, strm, serial, dev, ndev) ; 

/*  see  if  reached  EOF  */ 

if  (flag  -«=  2) 

( 

if  (strm->last  NULL)  /*  read  to  the  end  of  the  first  file  */ 

( 

free (strm) ; 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr, strm->f ilename) ; 
printf("  ***  EOF  before  NETWORK  statement  :\n\n">; 

♦errflag  ■  1; 

return  1; 

) 

/*  read  to  the  end  of  one  of  the  include  files  */ 

fclose (strm->in) ; 

/*  bump  back  to  last  stream  */ 

temp_strm  «  strm; 
strm  “  strm->last; 
free (temp_strm) ; 
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*atrml  «  strm; 
continue; 


/*  see  if  unable  to  find  device  type  */ 

if  (flag  —  -2) 

< 

/*  see  if  include  file  */ 

if  (atrnampa(elmnt->e->name, "INCLUDE", 3)  ““  0) 

{ 

open_include (strml , elmnt->e->name , errf lag) ; 
continue; 

} 

/*  see  if  end  of  section  */ 

if  (strncmpa(elmnt->e->name, "NETWORK", 7)  ■“  0) 

< 

flag  -  0;  /*  successful  load  */ 

break; 

) 


/*  genuine  bad  device  name  */ 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr, strm->f ilename) ; 

printfC  ***  Unable  to  Interpret  :  %s  ***\n", elmnt->e->name) ; 

*errflag  ■»  1; 

continue; 


/*  read  in  an  element  */ 

/*  see  if  bad  data  encountered  */ 

if  (flag  ««  1) 

{ 


printfC  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , strm->f ilename) ; 

printfC  ***  Encountered  Bad  Data  Reading  Element  s  %s  ***\n", 
elmnt->e->name) ; 

*errflag  «  1; 


/*  see  if  incomplete  definition  of  parameters  */ 
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if  (flag  —  -1) 

( 


printf("  ***  Error  Lina  %d  in  fila  %a\nM, 
atrm->lina_nbr, atrm->f ilename)  ; 

printf("  ***  Inoomplata  Paramatara  for  Element  :  %*  ***\n", 
almnt->a->nama) ; 

♦errflag  ”  1? 

} 


/*  allocate  tha  alamant  atructura  block  for  tha  next  alamant  */ 
temp_elmnt  «  almnt; 

almnt  -  (ELEMENT_PTR  *)  oalloc ( (unaignad)  1 , aizaof (ELEMENTJPTR) ) ; 
almnt->laat  «  temp_elmnt; 

elmnt->e  -  (ELEMENT  *)  oalloc ( (unaignad)  1 , aizeof (ELEMENT) ) ; 
seriaJ++;  /*  increment  aerial  number  of  element  */ 


) 


/*  create  element  array  */ 


serial — ;  /*  serial  is  now  the  number  of  elements  */ 

*nelm  -  serial; 

a  •«  (ELEMENT  **) calloc( (unsigned)  aerial, aizaof (ELEMENT  *)); 
*ee  -  e; 

/*  create  array  of  element  pointers  */ 

for  (i  ■  0  ,  almnt  ■  elmnt->laat  ;  almnt  !■*  NULL;i++) 

( 

e[i]  «•  elmnt->e; 
temp_elmnt  «  almnt; 
elinnt  «  elmnt->laat; 
free (temp_elmnt)  ; 

) 

*atrml  m  strm; 
return  0; 


) 
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/*  load_initial .o  */ 

/*  Norbert  H.  Doarry 

20  January  1989 

The  following  sections  comprise  the  initialization  section 
INITIALIZE 

EXTERNAL  INPUTS  INITIALIZATION 
NODE  VOLTAGE  INITIALIZATION 

The  initialization  section  ends  whan  the  keyword  SIMULATION  is  reached 
INITIALIZE 

each  line  of  the  initialization  is  of  the  formt 
ELEMENT  :  VARIABLE  VALUE 

where  'VARIABLE'  can  be  a  state  or  input  variable, 
the  section  ends  with  the  keyword  'END' 

EXTERNAL  INPUTS  INITIALIZATION 

each  line  of  the  external  input  initialization  is  of  the  form: 

ELEMENT  :  EXTERNAL_INPUT  VALUE 

the  section  ends  with  the  keyword  'END' 

NODE  VOLTAGE  INITIALIZATION 

each  line  of  the  node  voltage  initialization  is  of  the  form: 

NODE  :  SUBNODE  VALUE 

the  section  ends  with  the  keyword  'END' 

NOTE  :  this  initialization  is  only  necessary  for  Voltage  Subnodes. 
If  a  current  subcode  or  a  reference  voltage  subnode  is  specified, 
a  warning  is  generated. 


The  initialization  section  ends  when  the  keyword  SIMULATION  is  reached 
which  indicates  that  the  the  next  and  final  section  starts. 


*/ 

♦include  <atdio.h> 

♦include  <math.h> 

♦include  "doerry.h" 

load_initial (atrml, e, nelm, nn, nnode, inline, errflag, eof ) 
STREAM_PTR  “strml; 

ELEMENT  “e; 
int  nelm; 
char  ‘inline; 
int  ‘errflag; 
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NODE  **nn; 
int  nnode ; 

int  eo£;  /*  if  eof  -  0,  than  looks  for  ' SIMULATATION'  to  terminate  section 
otherwise,  looks  for  ths  and  of  tha  fila  */ 

( 

int  i,  j, k,  flag; 

STREAM_PTR  *temp_strm, *strm; 

char  *calloc(); 

char  f ilanama (MAXCHAR] ? 

stratrip (inline) ; 

flag  «  0; 

whiled) 

{ 


if  (atrncmpa (inline, "INITIALIZE",  7)  »»  0) 

flag  «  read_init (strml, e,  nelm, inline,  errf lag) ; 

elae  if  (atrncmpa (inline, "EXTERNAL" , 7 )  —  0) 

flag  *>  read_axt_init (strml,  e,  nelm, inline, errflag) ; 

elae  if  (atrncmpa (inline, "NODE  VOLTAGE", 7)  **■  0) 

flag  «  read_node_volt (strml ,  nn,  nnode,  inline, errf lag) ; 

elae  if  (strncmpa (inline, "SIMULATION" , 7 )  —  0) 

( 

return  0;  /*  read  to  end  of  initialization  routine  */ 

) 

else  if  (atrncmpa  (inline,  "INCLUDE",  7)  »■>  0) 
open_include (strml, inline, err flag) ; 

elae  if  (inline(O)  !«  'I'  &&  inline[0]  !•  NULL  £«  inline[0)  !«  '*') 

( 

atrm  “  *atrml; 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , atrm->f ilename) ; 
printf ( "  ***  INITIALIZE  Syntax  Error  i \n  %a\n\n" , inline) ; 

♦errflag  ■  1; 

) 


/*  see  if  flag  is  one,  which  signifies  that  other  routines  ran  out 
of  file  to  read  */ 

if  (flag  !“  0)  return  1; 

/*  read  in  next  line  */ 

strm  “  *atrml; 

atrm->line  nbr  +»  1;  /*  increment  line  counter  */ 
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while  (fgets (inline, MAXCHAR, atrm->in)  —  NULL) 

< 

/ *  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose (atrm->in) ; 

if  (strm->last  ■«“  NULL)  /*  read  back  to  the  beginning  */ 

< 

free (strm) ; 

/*  see  if  eof  is  set,  if  so,  then  done  */ 
if  (eof)  return  0; 

/*  otherwise,  reading  to  an  end  of  file  is  an  error  */ 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr ,  strm->f ilename)  ; 
print f ( "  ***  EOF  Reached  before  SIMULATION  statement\n" ) ; 

*errflag  ■  1; 
return  1; 

) 

temp_strm  “  strm; 
strm  “  strm->last; 
free (temp_atrm) ; 

*strml  »  strm; 


) 

at r st r ip ( inline )  ; 

) 

) 

open_include (strml, inline, errf lag) 

STREAM_PTR  “strml; 
char  ‘inline; 
int  ‘errflag; 

{ 

char  filename (MAXCHAR) ; 

STREAM_PTR  *temp_strm, *strm; 

strm  «  * strml; 

t*  grab  filename  */ 

streplit (inline, filename, 1, MAXCHAR) ; 

/*  allocate  new  stream  pointer  structure  */ 


temp_strm  »  strm;  /*  save  present  pointer  */ 

strm  =  (STREAM_PTR  *)  calloc (  (unsigned)  1 ,  s izeof ( STREAM_PTR) ) ; 
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atrm->laat  ■  tany_atrm; 

atrm->lina_nbr  ■  0; 

atropy (stnn-> filename, filanama) ; 

/*  try  to  opan  file  */ 

strm->in  ”  fopan (filanama, "r") j 

/*  saa  if  unsuooassful  */ 

if  (atrm->in  --  NULL) 

{ 


/*  bump  back  to  last  stream  */ 

tamp_strm  ■  strm; 
strm  »  atrm->laat; 
free (temp_strm) ; 

printt'C'  *“  Error  Lina  %d  in  file  %s\n", 
strm->line  nbr , atrm->f ilename) ; 

printf("  *“  Unable  to  Open  Include  File  :  %s\n", filename) ; 
•errflag  *=  1; 
return  1; 

) 

else 

( 

printf("  00@  Successfully  Opened  Include  File  :  %s\n", 
filename) ; 

) 

*strml  *■  atrm; 
return  0; 


) 

read_init (atrml, e, nelm, inline, errflag) 
STREAM_PTR  “strml; 

ELEMENT  “e; 
int  nelm; 
char  ‘inline; 
int  ‘errflag; 

{ 

STREAM_PTR  ‘strm, *temp_strm; 

char  line (MAXCHAR) ; 

char  e_name [MAXCHAR] ; 

char  v_name (MAXCHAR] ; 

int  i, j, k.ncnt; 

double  value ; 

while ( 1 ) 

( 
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/*  read  in  naxt  line  */ 
strm  ■  *strml; 

strm~>line_nbr  +-  1;  /*  increment  line  counter  */ 

while  ( f gets (inline, MAXCHAR, strm->in)  —  NULL) 

( 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose  (atrm->in) ; 

if  (strm->.last  »*■  NULL)  /*  read  back  to  the  beginning  */ 

{ 

free (strm) ; 

printf  ( "  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , strm->f ilename) ; 
printf ("  ***  EOF  Reached  before  END  statement  in  %s\n", 

"INITIALIZE") ; 

*errflag  *  1; 
return  1; 


temp_strm  “  strm; 
strm  =  strm->last; 
free (temp_strm)  ; 

*strml  =  strm; 


) 

strstrip (inline)  ; 

/*  see  if  a  comment  line  */ 

if  (inline  [0]  ==  NULL  ||  inline  (0]  «==  '  ! '  ||  inline  [0]  =»  '  #' ) 

continue; 

/*  see  if  end  command  */ 

if  (strncmpa (inline, "END" , 3)  "  0) 
break ; 

/*  see  if  include  file  */ 

if  (strncmpa ( inline INCLUDE" , 7 )  «=  0) 

< 

open_include (atrml, inline, errf lag) ; 
continue; 

) 


/*  must  be  an  element  variable  initialization  */ 
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/*  copy  element  name  */ 

for  (i  -  0  ;  inline C i ]  !-  NULL  &&  inlinefi]  !-  's'  ;  i++) 

e_name[i]  «  inlinefi]; 
e_name[i]  “  NULL; 
strstrip (e_name) ; 

/*  strip  off  tabs  and  apaoes  */ 

for  (i++;  inlinefi]  “«*  '  '  ||  inlinefi]  -■  '\t';  i++); 

/*  copy  variable  name  */ 

for  (j  -  0  ;  inlinefi]  !-  NULL  &6  inlinefi]  I-  '  '  fifi  inlinefi]  I-  '\t' 
i++,  j++) 

v_name(j]  ■«  inlinefi]; 
v_name  [  j  ]  *»  NULL; 
strstrip (v_name) ; 

/*  copy  value  */ 

for  (j  -  0  ;  inlinefi]  !-  NULL  ;  i++, j++) 
linefj]  =  inlinefi]; 
line  f  j]  ■=  NULL; 

Stoda (line, svalue, Sncnt, 1) ; 

if  (ncnt  »■*»  0)  /*  initialize  to  zero  */ 
value  *■  0.0; 

/*  find  the  element  */ 

for  (i  =  0  ;  i  <  nelm  &&  strcmp (e_name, e f i] ->name )  !■  0  ;  i++) ; 

if  (i  >«  nelm)  /*  didn't  find  the  element  */ 

{ 

printff"  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , strm->f ilename) ; 
printf ( "  ***  ELEMENT  Not  Found  Error  (%s)  :\n  %a\n\n", 

e_name,  inline) ; 

*errflag  -  1; 
continue ; 

} 


/*  find  the  state  variable  */ 

for  ( j  *=  0  ;  j  <  e  [  i]  ->device->nbr_states  && 

strcmp (v_name, e [ i] ->device->state_name [ j] )  !*  0  ;  j++) ; 

if  (j  <  e [i] ->device->nbr_statea) 

( 

/*  initialize  the  state  variable  */ 

e [i] ->con . init_state ( j]  “  value; 
continue; 
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) 

/*  aaa  if  its  an  input  variable  */ 

for  (j  «  0  ;  j  <  e  ( i]  ->device->nbr_inputs  ss 

atromp (v_name, e ( i] ->device->input_name ( j) )  0  ;  j++> 

if  (j  <  e  (i] ->deviae->nbr_iiiputa) 

( 

/*  initialize  the  input  variable  */ 

e  ( i] ->con  .  init_in  (  j  ]  **  value; 
continue; 

) 


/*  can't  recognize  the  variable  */ 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , atrm->f ilename) ; 
printf ( "  ***  VARIABLE  Not  Found  Error  (%s)  : \n  %s\n\n", 

v_name, inline) ; 

* err flag  »  1; 


) 

return  0; 


) 


read_ext_init (strml , e,  nelm, inline, errflag) 
STREAM_PTR  “strml; 

ELEMENT  **e; 
int  nelm; 
char  *inline; 
int  *errflag; 

{ 

STREAM_PTR  *strm,  *temp_strm; 

char  line [MAXCHAR]  ; 

char  e_name (MAXCHAR] ; 

char  v_name (MAXCHAR] ; 

int  i , j , k , ncnt ; 

double  value; 

whi  led) 

( 


/*  read  in  next  line  */ 
strm  =  *strml; 

atrm->line  nbr  +=  1;  /*  increment  line  counter  */ 
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while  ( fgets { inline , MAXCHAR, strm->in)  —  NOLL) 

{ 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose (strm->in) ; 

if  (strm->last  «=  NULL)  /*  read  back  to  the  beginning  */ 

{ 

free (strm) ; 

printf("  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr, atrm->f ilename) ; 
printf("  ***  EOF  Reached  before  END  statement  in  %s\n", 
"INITIALIZE") ; 

♦errflag  **  1; 
return  1; 

) 

temp_strm  =  strm; 
strm  =  strm->last; 
f ree <temp_strm) ; 

"strml  =  strm; 


) 

strstrip ( inline ) ; 

/*  see  if  a  comment  */ 

if  (inline [0]  ■==  NOLL  ||  inline [0]  —  II  inline [0]  »=  '  #' ) 

continue; 

/*  see  if  end  command  */ 

if  (strcmpa  (inline,  "END")  *■“  0) 
break; 

/*  see  if  include  file  */ 

if  (strcmpa  (inline,  "INCLUDE")  ■*=  0) 

< 

open_include (atrml, inline, errf lag) ; 
continue; 

) 


/*  must  be  an  element  variable  initialization  */ 

/*  copy  element  name  */ 

for  (i  “  0  ;  inline(i)  !“  NOLL  &&  inline[i]  ! «  ' ;  i++) 
e_name(i)  «=  inline(i); 
e_name(i]  ••  NOLL; 
strstrip (e_name )  ; 
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/*  strip  off  tabs  and  spaaas  */ 

for  (i++;  inline [i]  ■»*■''  ||  inline [i]  ■■  '\t';  i++); 

/*  copy  variable  name  */ 

for  (j  -  0  ;  inline ti]  !•  NULL  6&  inline [i]  l»  '  '  46  inline  [i]  !■  '\t'; 

i++, j++> 

v_name(j]  «=  inline(i); 
v_name(j]  “  NULL; 
strstrip(v_name) ; 

/*  copy  value  */ 

for  (j  -  0  ;  inline { i }  I-  NULL  ;  i++, j++) 
line[j]  «  inline (i] ; 
lino[i)  »  NULL; 

Stoda (line, 4 value, 4nont,  1)  ; 

if  (ncnt  “=*  0)  /*  initialize  to  zero  */ 
valve  «=■  0.0; 

/*  find  the  element  */ 

for  (i  «=  0  ;  i  <  nelm  44  strcmp  (e_name,  e  ti]  ->name)  !■»  0  ?  i++) ; 

if  (i  >**  nelm)  /*  didn't  find  the  element  */ 

{ 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm-> filename) ; 
printfC  ***  ELEMENT  Not  Found  Error  (%s>  :\n  %s\n\n", 
e_name, inline) ; 

*errflag  «  1; 
continue; 

) 


/*  find  the  external  input  variable  */ 

for  (j  =  0  ;  j  <  e [ 1J ->device->nbr_ext_in  && 

strcmp (v_name, e { i] ->device->ext_in_name ( j] )  !■  0  ;  j++) ; 

if  (j  >»  e ( i] ->device->nbr_ext_in)  /*  didn't  find  the  external  input*/ 

< 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , atrm->f ilename)  ; 

printfC  ***  EXTERNAL  INPUT  Not  Found  Error  (%s)  : \n  %s\n\n”, 

v_name, inline) ; 

*errflag  “  1; 
continue ; 


/*  initialize  the  state  variable  */ 
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• (i) ->con . init_ext_in [ j]  ■  valu*; 

} 

return  0; 

) 

read_node_volt (atrml, nn, nnode , inline, errflag) 

STREAM_PTR  “atrml; 
char  ‘inline; 
int  ‘errflag; 

NODE  **nn; 
int  nnode; 

{ 

STREAM_PTR  ‘atrm,  *temp_atrm; 

char  line [MAXCHAR] ; 

char  n_name (MAXCHAR] ; 

char  a_name (MAXCHAR] ; 

int  i , j , k, nent; 

double  value; 

while (1) 

( 

/*  read  in  next  line  */ 
atrm  “  ‘atrml; 

atrm->line_nbr  +»  1;  /*  increment  line  counter  */ 

while  (fgeta (inline, MAXCHAR,  strm->in)  —  NULL) 

( 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose (atrm->in) ; 

if  (strm->laat  —  NULL)  /*  read  back  to  the  beginning  */ 

( 

free  (atrm) ; 

printf("  *“  Error  Line  %d  in  file  %a\n", 
atrm->line_nbr , strm->f ilename) ; 
printfC  “*  EOF  Reached  before  END  statement  in  %a\n", 
"INITIALIZE") ; 

‘errflag  »»  1; 
return  1; 

) 

temp_atrm  “  atrm; 
atrm  =>  atrm->last; 
free (temp_atrm) ; 

‘atrml  ”  atrm; 
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) 

atratrip (inlina) ; 

/*  a««  if  comment  line  */ 

if  (inlina [0]  —  NOLL  ||  inlina (0]  —  ' I'  ||  inlina (0)  —  '#') 
oontinua; 

/*  aaa  if  and  command  */ 

if  (atrncmpa (inlina, "END" , 3)  ■«  0) 
break; 

/*  aaa  if  inoluda  fila  */ 

if  (atrncmpa (inlina, "INCLUDE", 7)  —  0) 

( 

open_include (atrml, inlina,  arrf lag)  ; 
continue; 

) 


/*  muat  be  an  noda  voltage  initialization  */ 

/*  copy  node  name  */ 

for  (i  ■  0  ;  inline(i]  !<»  NULL  &&  inline[i]  's'  ;  i++) 
n_name(i]  *  inline (i); 
n_name(i)  »=  NULL; 
atratrip (n_name)  ; 

/*  strip  off  tabs  and  spaces  */ 

for  (i++;  inline [i]  —  '  '  II  inline [i]  —  ' \t' ;  i++); 

/*  copy  aubnode  name  */ 

for  (j  -  0  ;  inline (i]  !-  NULL  inline [i]  !-  '  '  66  inlina (i]  I-  '\t'; 

i++, j++) 

a_name(j]  «■  inline  [i]; 
a_name[j)  “  NULL; 
atratrip (a_name) ; 

/ *  copy  value  */ 

for  (j  «  0  ;  inline  {i]  !•«  NULL  ;  i++,  j++) 
line(j]  «  inlina [i]; 
line [ j]  -  NULL; 

Stoda (line, &valua, &ncnt, 1) ; 

if  (ncnt  *=»  0)  /*  initialize  to  zero  */ 
value  »  0.0; 
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/*  find  the  node*/ 

for  (i  -  0  ;  i  <  nnoda  tt  atrcmp (n_name, nn [i] ->nama)  !■  0  ;  i++); 

if  (i  >«  nnoda)  /*  didn't  find  tha  alamant  */ 

{ 

printf ("  ***  Error  Lina  %d  in  fila  %a\n", 
strm->line_nbr , atrm->f ilanama) ; 
printf ( "  ***  NODE  Not  Found  Error  (%a)  » \n  %a\n\n", 

n_name, inline) ; 

*errflag  “  1; 
continue; 

) 


/*  find  the  aubnoda*/ 

for  <j  «  0  ;  j  <  nn [i] ->nbr_subnode  44 

atrcmp (a_name, nn [i] ->subnoda [ j ] ~>name)  !■  0  ;  j++) ; 

if  (j  >=  nn [ i ] ->nbr_aubnode)  /*  didn't  find  tha  subnode  */ 

{ 

printf  ("  ***  Error  Line  %d  in  fila  %s\n", 
atrm~>line_nbr , atrm->f ilanama)  ; 
printf <"  ***  SUBNODE  Not  Found  Error  (%s)  t\n  %a\n\n", 

a_nama,  inline) ; 

*arrflag  =  1; 
continue; 


/*  initialize  the  aubnode  */ 

nn [ i) ->aubnode { j ] ->init_volt  “  value; 

/*  see  if  current  aubnode  */ 

if  (nn f i ] ->aubnode [ j) ->type  ■■  X) 

( 

printf  ("***  WARNING  Line  %d  in  file  %a\n", 
strm->line__nbr ,  strm->f ilanama)  ; 

printf ("  ***  Initialization  of  Current  Subnoda  Ignored  :\n"); 

printf ("  %a\n\n",  inline); 


/*  see  if  reference  node  */ 

elae  if  (nn [i] ->subnode [ j] ->ref_f lag  “  1) 

( 

printf ("***  WARNING  Line  %d  in  file  %a\n", 
atrm->line_nbr , strm->f ilanama) ; 

printf ("  ***  Initialization  of  Reference  Voltage  Subnode  :\n"); 

printf ("  %s\n\n",  inline)  ; 

) 
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) 

rat urn  0; 


) 


load  network .c 


/*  load_network .c  */ 

/*  Norbert  H.  Doerry 

26  January  1999 

This  file  contains  a  function  for  loading  the  network  description* 
from  an  input  file. 

The  network  descriptions  are  read  in  until  one  of  the  following 
keywords  is  reached: 

INITIALIZE 

EXTERNAL  (INPUTS  INITIALIZATION) 

NODE  VOLTAGE 
SIMULATION 

The  INCLUDE  keyword  causes  data  to  be  taken  from 
that  file. 


♦include  <stdio.h> 
♦include  "doerry. h" 


int  load_network (strml,  nn, nnode, e, nelm, errf lag) 

STREAM_PTR  ** strml? 

NODE  ***nn;  /*  an  array  of  pointers  to  NODES  */ 

int  *nnode; 

ELEMENT  **e; 
int  nelm; 
int  *errflag; 

( 

STREAM_PTR  *strm,  *temp_strm; 
char  *calloc(); 

int  i,  j ,  k,  1,  m,  mm,  flag, serial, node_ctr ; 

NODE  *n, *new_node; 
char  filename (MAXCHAR] ; 

strm  “  *strml; 

n  -  (NODE  *)  calloc (1 ,  sizeof (NODE) ) ; 
n->last  -  NULL; 
flag  -  0; 
node_ctr  “  0; 

while  (1) 

( 

flag  «  read_network (strm, n, e, nelm, errf lag) ; 

/*  see  if  end  of  block  */ 

if  (flag  «•“  -1  &&  (strncmpa  (n->name,  "INITIALIZE",  7)  ■>■  0  |  | 
strncmpa (n->name, "EXTERNAL", 7)  0  | | 
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< 

flag  “  0; 
break; 

) 


atrncmpa  (n->name,  "SIMULATION",  7)  ■■  0  || 
atrncmpa (n->name, "NODE  VOLTAGE",?)  «  0) ) 


/*  see  if  include  file  */ 

if  (flag  ■■  -1  S  &  strncmpa (n->name, "INCLUDE", 7)  **»  0) 

< 

/*  grab  filename  */ 

strsplit (n->name, filename, 1,MAXCRAR) ; 

/*  allocate  new  stream  pointer  structure  */ 


temp_strm  «  strm;  /*  save  present  pointer  */ 

atrm  «  (STREAM_PTR  *)  calloc ( (unsigned)  1 , sizeof (STREAM_PTR) ) ; 

strm->last  -  temp_strm; 

strm->line_nbr  “  0; 

strcpy (strm->filename, filename) ; 

/*  try  to  open  file  */ 

strm->in  ■  fopen (filename, "r") ; 

/*  see  if  unsuccessful  */ 

if  (strm->in  — “  NULL) 

( 


/*  bump  back  to  last  stream  */ 

temp_strm  “  strm; 
strm  “  strm->laat; 
free (temp_strm) ; 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename)  ; 

printf("  ***  Unable  to  Open  Include  File  :  %s\n" , filename) 
•errflag  *=  1; 

) 

e  lse 

( 

flag  «■  0; 

printf("  Successfully  Opened  Include  File  s  %s\n", 

filename) ; 

) 

continue; 


335 


load  network. c 


} 

if  (flag  --  -1) 

( 


printf("  ***  Error  Lina  %d  in  file  %a\n", 
strm->line_nbr ,  atrm->f ilename)  ; 

printf("  ***  NETWORK  Syntax  Error  :\n  %» \n\n", n->name) ; 
fraa  (n->name) ; 

*errflag  “  1; 
continue, 


/*  See  if  read  to  and  of  file,  if  so,  pop  up  one  inolude  file  */ 

if  (flag  ~  2) 

( 

if  (strm->last  »«  NULL)  /*  read  to  the  end  of  the  first  file  */ 

( 


printf("  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr, strm->f ilename) ; 

printf("  ***  EOF  reached  in  NETWORK  section : \n\n" ) ; 
break; 


/*  read  to  the  end  of  one  of  the  include  files  */ 

fclose (strm->in) ; 

/*  bump  back  to  last  stream  */ 

temp_strm  “  strm; 
atrm  «  strm->last; 
free (temp_strm) ; 

flag  ■  0; 
continue; 


/*  allocate  the  new  node  */ 

new_node  ■  (NODE  *)  calloc(l, sizeof  (NODE)); 

if  (new_node  NULL) 

( 

*errflag  -  1; 

*strml  «  atrm; 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line  nbr, strm->filename) ; 
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print!  ("  ***  Out  of  MEMORY\n") ; 

return  1; 

) 

new_node->l,aat  ■  n; 
n  new_node; 

/*  increment  noda  count ar  */ 
nod«_otr++; 

) 

if  (flag) 

( 

*atrml  ■  strm; 

*errflag  *■  1; 

/*  atop  doing  any  more  work  if  an  error  ha9  been  detected  */ 

if  (flag  —  -3  ||  flag  — *  2) 
return  1; 
elae 

return  0; 

} 

/*  put  the  NODE  structures  into  an  array  of  pointers  */ 

*nnode  •  node_ctr; 

*nn  =  (NODE  **)  calloc (node_ctr  +  1 , sizeof (NODE  *)); 

(*nn) (node_ctr)  »  n; 

for  (i  “  0  ;  i  <  node_ctr  ;  i++) 

{ 

(*nn) [node_ctr  -  i  -  1)  ■  n->laat; 
n  «■  n->last; 

) 

/*  check  which  elements  are  used  and  not  used  in  network  description  */ 
/*  print  out  those  elements  which  are  not  used  */ 

for  (i  =  0, j  “  0  ;  i  <  nelm  ;  i++)  /*  j  is  first  time  flag  */ 

( 

if  (e(i]->flag  1)  continue;  /*  goto  next  element  */ 

if  (j  —  0) 

{ 

printf("\n\n  ***  WARNING  :  The  following  Elements  are  defined"); 
printf("  but  not  used  :  \n"); 

j  “  i; 

) 

printf("  %a\n", e [i] ->name) ; 

( 
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/*  check  to  ensure  that  for  all  tha  alamanta  that  ara  uaad,  all  of  thair 
inputs  ara  attachad  to  a  noda.  */ 


for  (i  -  0;  i  <  nalm  ;  i++)  /*  j  ia  first  tima  flag  */ 

{ 

if  (a(i]->flag  0)  continue;  /*  go  to  next  element  if  not  uaad  */ 
/*  loop  for  each  noda  variable  */ 

for  (k  «■  j  •  0  ;  k  <  a ( i] ->devioe->nbr_inputa  ;  k++,  j  -  0) 


/*  loop  for  each  noda  */ 
for  (1  »  0  ;  .1  <  *nnode  ;  1++) 

{ 

I*  loop  for  each  subnode  */ 

for  (m  «>  0  ;  m  <  (*nn)  [  1J ->nbr_subnode  ;  m++) 

{ 

/*  loop  for  each  connection  in  each  subnode  */ 

for  (mm  «*  0  ;  mm  <  (*nn) ( 1] ->subnode [m] ->nbr_connect  ;  mm++) 

{ 


} 


if  (strcmp (a [ i) ->name, 

(*nn) (1) ->subnoda [m] ->element [mm] )  !”  0) 

continue;  /*  go  on  if  element  names  don't  match  */ 

if  (strcmp (a (i] ->device->input_name [k] , 

(*nn) (1 J ->subnode [m] ->variable [mm] )  !“  0) 

continue;  /*  go  on  if  variable  names  don't  match  */ 


j++; 


) 


/*  j  is  the  number  of  nodes  an  input  variable 
is  attached  to  */ 


if  (j  0) 

{ 

printfC  ***  ERROR  ;  Input  Variable  not  attached  to  a  node  :\n") 
printf("  ***  Element  s  %s  | |  Input  Variable  s  %s  ***\n", 
e ( i] ->name, 

e ( i] ->device->input_name [k] ) ; 

*errflag  =  1; 

) 

else  if  (j  !■  1) 

{ 

printfC  ***  ERROR  :  Input  Variable  attached  to  %d  nodes  :\n", 

j) ; 

printfC  ***  Element  :  %s  | I  Input  Variable  s  %s  ***\n", 
e ( i] ->name , 
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•  [ij ->devioe->input_name  [k] ) ; 
*errflag  »  1; 

) 


) 


) 

*atrml  -  atrm; 
return  flag; 

} 


339 


load  simulation. c 


/*  load_simulation . c  */ 

/*  Norbart  H.  Doarry 

27  January  1989 

This  routine  loads  in  all  the  information  required  to  run  the  simulation 
of  the  program.  The  Display  section  lists  all  the  external  output 
variables  that  may  be  printed  out. 

TIME_STEP  command  sets  the  time  step  increment. 

TMIN  command  sets  the  starting  time  of  the  simulation. 

TMAX  command  sets  the  ending  time  of  the  simulation. 

DELTA  is  the  fractional  part  of  a  variable  that  is  used  in  calculating 
the  jacobian. 

DELTA_MIN  is  the  minimum  change  in  a  variable  for  calculating  the 
jacobian  in  case  the  variable  is  very  small. 

PRINT_STEP  sets  the  time  increment  for  printing  the  values  of  the 
external  variables. 

MAX_ITERATION  is  the  maximum  number  of  iterations  of  the  Newton-Raphson 
method  used  before  a  failure  to  converge  error  is  generated 

CONVERGE  is  the  maximum  mean  square  error  of  the  implicit  vector  that 
is  allowed  for  a  balanced  solution. 

The  Reference  Section  sets  the  voltage  and  current  nodes  and  subnodes 
that  are  to  be  used  as  references.  The  reference  voltage  node  is 
always  set  equal  to  specified  voltage  (default  is  rero  volts) . 

The  reference  current  ode  is  not  used  to  create  a  current  law  equation 
(This  prevents  a  singular  matrix) 

The  External  Input  Command  specifies  the  values  of  different 
external  inputs  at  different  times. 

The  format  is: 

SIMULATION 

DISPLAY 

ELEMENT  :  EXTERNAL  OUTPUT  VARIABLE 


Ml/  Ml/ 

\/  \/ 


END 

TIME_STEP 

VALUE 

TMIN 

VALUE 

TMAX 

VALUE 

PRINT_STEP 

VALUE 

DELTA 

VALUE 

340 


lead  simulation .  o 


DELTA_MIN  VALUE 

REFERENCE 

V  t  NODE  t  SUBNODE  VALUE 
I  I  NODE  l  SUBNODE 
END 

MAX_ITERATION  VALUE 
CONVERGE  VALUE 


EXTERNAL  INPUTS 


ELEMENT  ; 

l  EXTERN AL_INPUT_VARIABLE 

VALUE 

TIME 

1  1 

1  1 

1  1 

1  1 

1  1 

1  1 

1  1 

1  1 

\ll/ 

Ml/ 

Ml/ 

Ml/ 

\/ 

\/ 

\/ 

\/ 

END 

*  / 

finclude  <stdio.h> 

♦include  <math.h> 

♦include  "doerry.h" 

♦define  DEBUG  0 

load_simulation (strml, e, nelm, nn, nnode,  q,nbrq,  simulato,pv,  err flag) 
STREAM_PTR  **atrml;  /*  pointer  to  pointer  of  current  stream  structure  */ 


ELEMENT  **e;  /*  array  of  pointers  to  element  structures  */ 
int  nelm;  /*  number  of  elements  in  element  array  */ 
NODE  **nn;  /*  array  of  pointers  to  node  structures  */ 
int  nnode;  /*  number  of  elements  in  node  array  * / 
QUEUE  ***q;  /*  pointer  to  an  array  of  pointers  to  queue  structures  */ 


int  *nbrq;  /*  number  of  elements  in  array  of  pointers  to  queue  structures  */ 
SIMULATE  ‘simulate?  /*  structure  for  simulation  commands  */ 

PRINT_VAR  *p v?/*  pointer  to  first  PRINT_VAR  structure  */ 

int  ‘errflag;  /*  error  flag,  if  -  1,  cannot  run  simulation  */ 

( 

int  i,  j,  j  j,  k,  flag; 

STREAM_PTR  *temp_strm, *strm; 

char  ‘callocO; 

char  inline (MAXCHAR] ; 

QUEUE  * *qq, *q_temp; 
double  temp; 

qq  «  (QUEUE  **)  calloc(l,  sizeof (QUEUE  *)>; 

*qq  ■  (QUEUE  *)  calloc(l,  sizeof (QUEUE  )); 

(*qq)->last  «  NULL;  /*  signal  that  this  is  first  queue  */ 

jj  **  i; 

flag  “  0;  /*  flag  for  ran  out  of  file  too  soon  */ 

while ( j j) 
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/*  read  in  next  line  */ 
atrm  «  *str.nl; 

strm->line_nbr  +“  1;  /*  increment  line  counter  */ 

while  ( f gets ( inline , MAXCHAR, strm->in)  —  NULL) 

( 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose (strm->in) ; 

if  (strm->last  --  NULL)  /*  read  back  to  the  beginning,  we  are  done  */ 

{ 

free ( strm) ? 
jj  -  0; 
break; 

} 

temp_strm  -  strm; 
strm  =  strm->last; 
f ree (temp_atrm) ; 

*strml  =  strm; 


} 

if  (jj  ■«=  0)  break;  /*  exit  loop  if  done  */ 

atrstrip(inline) ; 

/*  see  if  line  is  a  comment  */ 

if  (inline  (0]  —  '!'  ||  inline (0J  —  ||  inline [0]  --  NULL) 

continue; 

/*  see  if  a  valid  command  */ 

if  (strncmpa (inline, "DISPLAY”, 7)  —  0) 

flag  “  read_display (strml, e,  nelm,  nn, nnode, pv,  errf lag) ; 

else  if  (strncmpa (inline, "TIME_STEP", 7)  —  0) 

read_value (strml, & (simulate->dt ) , inline,  errflag) ; 

else  if  (strncmpa (inline, "TM1N" , 4 )  «  0) 

read_value (strml, & ( simulate ->tmin) , inline , errflag) ; 

else  if  (strncmpa (inline, "TMAX" , 4 )  “  0) 

read_value (strml, & (simulate->tmax) , inline, errflag) ; 

else  if  (strncmpa (inline,  "PRINT_STEP", 7)  —  0) 

read_value (strml , & ( Simula te->print_dt ) , inline, errflag) ; 
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else  if  (atrncmpa {inline, "DELTA_MIN", 8)  ■■  0) 

rsad_valua  (strml,  &  (simulate->delta_min)  ,  inline,  ar.rf  lag)  ; 

el9«  if  (atrncmpa (inlina, "DELTA", 4)  ""  0) 

read  value (strml, & (simulate->delta) , inline, errflag) ; 

else  if  (strncmpa (inline, "CONVERGE", 7)  ”  0) 

read_value (strml, & (simulate->converge) , inline, errflag) ; 

else  if  (atrncmpa (inline, "MAX_ITERATION", 7)  --  0) 

{ 

read_value (strml, 4temp, inline, errflag) ; 
simulate“>max_iteration  ■  (int)  temp; 

) 

else  if  (strncmpa (inline, "REFERENCE", 7)  «»  0) 

flag  «  read_reference (strml , simulate, nn, nnode, errflag) ; 

else  if  (strncmpa (inline, "EXTERNAL  INPUTS",?)  —  0) 
flag  »  read_external (strml, qq, e, nelm, errflag) ; 

else  if  (strncmpa  (inline,  "INCLUDE",  7)  «==  0) 
open_include (strml, inline , errflag) ; 

if  (flag)  return  1;  /*  ran  out  of  file  too  soon  */ 


) 

/*  find  out  how  many  queue  structures  we  have  */ 
q_temp  =  *qq; 

for  (i  =  0  ;  q_temp->last  !«  NULL  ;  q_temp  “  q_temp->last  ,  i++) 
*nbrq  =  i; 

if  (i  =■=  0)  return  0;  /*  return  if  no  queue  structures  */ 

/*  allocate  array  for  the  queue  structures  */ 

*  q  *>  (QUEUE  **)  calloc  (i,  sizeof  (QUEUE  *)); 

/*  see  if  out  of  memory  */ 

if  (*q  —  NULL) 

( 

printf ("  ***  OUT  of  MEMORY  ERROR  ***\n"); 

•errflag  »  1; 
return  1; 


/*  store  pointers  in  array  */ 
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for  (q_temp  “  ‘qq  ,  .1  ■  0  ; 
q_t  •  mp  -  >  1  a  a  t  !«■  NULL  ; 
q_tamp  “  q_temp->laat  ,  i++) 

(*q) (i)  -  q_temp->laat; 

/*  sort  array  by  time  (Thia  ia  a  bubbla  aort)  */ 


flag  ■  1; 
while  (flag  —  1) 

\ 

flag  *»  0; 

for  (i  *  1  ;  i  <  *nbrq  ;  i++) 

( 

if  (  (*q) (i) ->time  >«>  <*q) (i-1) ->time  ) 

continue;  /*  in  proper  order  */ 

/*  must  switch  two  entries  around  */ 

q_temp  -  (*q)  (i]  ; 

<*q)  (i]  -  <*q>  [i“l]  ; 

( *q)  l' i-1]  ■  q_temp; 

/*  set  flag  to  1  to  continue  checking  */ 


flag 

> 


(DEBUG) 


1; 


{ 


) 


for  (i  «  0  ;  i  <  *nbrq  ;  i++) 

printf ( "elm  ■  %d  ,  var  “  %d  ,  val  * 
(»q) [i] ->var,  (*q) (i]->value 


%f  ,  time  -  %f\n", (*q) [i)->elm, 
,  ( *q) [ i] ->time ) ; 


*/ 

return  0; 


) 


read_value (atrml,  val, inline, errflag) 

STREAM_PTR  “atrml; 

double  *val; 

char  ‘inline; 

int  ‘errflag; 

( 

STREAM_PTR  ‘atrm; 
char  line [MAXCHAR] ; 
int  ncnt, i; 
double  value; 

atrm  -  ‘atrml; 
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/*  atrip  off  th«*  command  */ 

atr split (inline, iina,  1, MAXCHAR) ; 

/*  strip  lina  */ 

atr at rip ( line ) ; 

/*  oonvart  the  number  */ 

Stoda (line, &value, Snont , 1 ) ; 

/*  set  the  initialization  value  */ 

if  (value  >“  0  &&  nont  **“  1) 

*val  ■  value; 

else 

( 

printf ("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , atrm->f ilename)  ; 
printf ( "  ***  SYNTAX  ERROR: \n  %a\n\n", inline) ; 

*errflag  =  1; 

} 


/*  print  results  if  debug  */ 
if  (DEBUG) 

printf ( "inline  =  %s  :  line  *  %s  :  value  «=  %f\n",  inline,  line,  value) ; 


) 


read_diaplay  (atrm.l,  e,  nelm,  nn,  nnode,  pv,  err  flag) 

STREAM_PTR  **strml;  /*  pointer  to  pointer  of  current  stream  structure  */ 


ELEMENT  **e;  /*  array  of  pointers  to  element  structures  * / 
int  nelm;  /*  number  of  elements  in  element  array  */ 
NODE  **nn;  /*  node  array  */ 
int  nnode;  /*  number  of  elements  in  node  array  */ 
PRINT_VAR  *pv;/*  pointer  to  first  PRINT_VAR  structure  in  chain  */ 
int  *errflag;  /*  error  flag,  if  «  1,  cannot  run  simulation  */ 


( 

int  i,  j,  k,  flag; 

STREAM_PTR  *temp_strm, *strm; 
char  *calloc(); 

char  v_name (MAX CHAR] ,  e_name (MAX CHAR] ; 
char  inline (MAXCHAR]; 

PRINT_VAR  *temp; 

while ( 1 ) 

( 
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/*  raad  in  next  line  */ 
strm  ••  *atrml; 

strm->lina_nbr  +■  1;  /*  incrament  lina  oountar  * t 

while  (fgets (inline, MAXCHAR,strm->in)  —  NULL) 

< 

/*  Bead  to  the  and  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

f close (strm->in) ; 

if  (strm->last  —  NULL)  /*  raad  back  to  the  beginning  */ 

< 

free (strm) ; 

printfC  ***  Error  Lin#  %d  in  file  %a\n", 
strm->line_nbr , strm->f ilanama) ; 
printfC  ***  EOF  reached  in  DISPLAY  An  %s\n\n", inline) ; 
*errflag  *■  1; 


return  1; 

) 

temp_strm  -  strm; 
strm  »  strm->last; 
free (temp_strm) ; 

*strml  ■»  strm; 


) 

strstrip (inline) ; 

/*  see  if  line  is  a  comment  */ 

if  (inline (0]  —  '1'  ||  inlinetOJ  —  '#'  II  inline[0]  —NULL) 

continue; 

/*  see  if  done  */ 

if  (strncmpa(inline, "END",  3)  —  0) 
return  0; 

/*  see  if  include  file  */ 

else  if  (strncmpa (inline, "INCLUDE", 7)  —  0) 
open_include (etrml, inline,  arrf lag) ; 

/*  must  be  an  element  variable  descripton  */ 

/*  copy  element  name  */ 
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for  (1  -  0  ,•  inlinati)  I-  HULL  it  inlinati]  !-  '  i'  ;  i++) 
e_nama[i)  -  inlinati); 
a  nama(i)  «  HULL; 
strstrip(a_nama) ; 

/*  strip  off  tabs  and  spaaaa  */ 

for  (i++;  inlinati)  —  '  '  ||  inlinati)  —  '\t';  i++) ; 

/*  copy  variable  name  */ 

for  (j  -  0  ;  inline ( i ]  !-  HULL  it  inlinati)  '  '  66  inlina(i)  !-  ' \t' ; 

i++, j++) 

v_name{j]  *  inline (i); 
v_name(j]  ■  HULL; 
strstrip (v_name)  ; 

/*  find  the  element  */ 

for  (i  -  0  ;  i  <  nelin  it  stremp  (e_name,  a  [ i )  ->name)  !«*  0  ;  i++); 

/*  found  the  element  */ 

if  (i  <  nelm) 

( 


/*  find  the  external  output  variable  */ 

for  (j  -  0  ;  j  <  a ( i] ->devioe->nbr_ext_out  66 

etrcmp (v_name, e [i] ->davice->ext_out_name ( j] )  ! “  0  ;  j++) ; 

if  (j  <  e (i) ->device->nbr_ext_out)  /*  found  external  output  */ 

{ 

/*  allocate  and  insert  structure  */ 

for  (temp  ■  pv;  temp->next  !■  HULL  ;  temp  ■  temp->next) ; 
tamp->next  <• 

(PRIHT_VAR  *)  calloc( (unsigned)  1  ,  air eof (PRIHT_VAR) ) ; 
temp  “  temp->next; 
temp->next  <■  HULL; 

/*  store  the  information  */ 

tamp->e  «»  i; 
temp->v  «»  j; 
temp->typ  -  0; 

continue; 

) 


/*  look  for  external  input  */ 
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for  (j  "  0  /  j  <  a (i) ->devioe->nbr_ext_in  it 

otromp (v_nama, a(i] ->device->ext__in_name { j] )  !»  0  ;  j++); 

if  (j  <  a (i] ->davica->nbr_axt_in)  /*  found  axtarnal  output  */ 

{ 

/*  allocata  and  inaart  atruotura  */ 

for  (tamp  «  pv;  tamp->naxt  !-  NULL  ;  tamp  ■  tamp->naxt) ; 
tamp->naxt  ■ 

<PRINT_VAR  *)  aalloc ( (unsigned)  1  ,  aixeof (PRINT_VAR) ) ; 
tamp  ■  temp->next; 
tamp->naxt  -  NULL; 

/*  store  the  information  */ 

temp->a  ■  i; 
tamp->v  »  j ; 
temp->typ  ■  1 ; 

continue; 

) 


/*  couldn't  find  external  input  or  output  */ 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename) ; 
printfC  ***  EXTERNAL  VARIABLE  Not  Found  Error  <%s)  :\n", 
v_name ) ; 

printfC  %s\n\n", inline) ; 

*errflag  «  1; 
continue; 


) 


/*  find  the  node  */ 

for  (i  «  0  ;  i  <  nnode  i&  atrcmp  (e_name,  nn  t i]  ->nama )  !*•  0  ;  i++)  ; 

/*  found  the  node  */ 

if  (i  <  nnoda) 

( 

/*  look  for  the  subnode  */ 

for  (j  “  0  ;  j  <  nn[i]->nbr_subnode  && 

atrcmp (v_name  ,  nn (i] ->subnoda ( j) ->nama)  !-  0  ;  j++) ; 

if  (j  <  nn ( i] ->nbr_subnoda)  /*  found  the  aubnode  V 
( 

/*  make  sure  aubnode  is  a  voltage  subnode  */ 
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if  (nn { 1] ->aubnod« [ j] ->typ*  ■-  1) 

{ 

printf ("  ***  Error  Lina  %d  in  fila  %a\n", 
•trm->lina_nbr , strm->f ilename) ; 
printf ("  ***  SUBNODE  Not  of  Voltaga  Typa  (%•)  i\n", 

v_nama ) ; 

printf ("  %s\n\n", inline) ; 

•errflay  -  1; 
continua; 

) 

/*  allocate  and  inaart  structure  */ 

for  (temp  *»  pv;  temp->next  !*  NULL  ?  temp  »  temp->next) ; 
temp->next  » 

(PRINT_VAR  *)  calloc( (unsigned)  1  ,  sizeof (PRINT_VAR) ) ; 
temp  «  temp->next; 
temp->next  «  NULL; 

/*  store  the  information  */ 

temp->e  »  i; 
temp->v  ■  j; 
temp->typ  -  2; 

continue; 


/*  couldn't  find  subnode*/ 

printf ("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr, strm->filename) ; 
printf ( "  ***  SUBNODE  Not  Found  Error  (%a)  :\n", 

v_name ) ; 

printf ("  %s\n\n" , inline) ; 

*errflag  ■  1; 
continue; 

) 

/*  didn't  find  the  element  */ 

printf ("  ***  Error  Line  %d  in  file  %s\n", 
atrm->line_nbr, strm->f ilename)  ; 

printf ("  ***  ELEMENT  /  NODE  Not  Found  Error  <%s)  : \n  %s\n\n", 

e_name, inline) ; 

*errflag  «  1; 
continue; 


> 
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read_external (strml, qq, a, nslm, srrflag) 

STREAM_PTR  **atrml;  /*  pointer  to  pointsr  of  currant  atraam  struotura  */ 


QUEUE  **qq;  /*  pointer  to  pointer  of  currant  queue  atruotura  */ 
ELEMENT  **e;  /*  array  of  pointers  to  element  structures  */ 
int  nalm;  /*  number  of  elements  in  element  array  */ 
int  *errfleg;  /*  error  flag,  if  -  1,  cannot  run  simulation  */ 


( 

int  i, j,  k, flag, ncnt; 

STREAM_PTR  *temp_etrm, *strm; 
char  *calloc(); 
char  inline (MAXCHAR] ; 
char  line [MAXCHAR] ; 
char  e_name (MAXCHAR] ; 
char  v_name [MAXCHAR] ; 
double  value[2]; 

QUEUE  *q_temp; 

flag  “  0; 

while (1) 

( 

/*  read  in  next  line  */ 
strm  -  *atrml; 

atrm->line_nbr  +**  1;  /*  increment  line  counter  */ 

while  ( f gets (inline, MAXCHAR, strm->in)  »■  NULL) 

( 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
stack  */ 

fclose (strm->in) ; 

if  (strm->last  «“  NULL)  /*  read  back  to  the  beginning.  */ 

{ 

free (atrm) ; 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename) ; 
printf ( "  ***  EOF  reached  in  EXTERNAL  INPUT  : \n  %a\ n\n", 

inline) ; 

*errflag  ”  1; 

return  1; 

} 

temp_strm  —  strm; 
strm  -  strm->last; 
free (temp  strm) : 

*strml  «  strm; 
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) 

str strip ( inline ) ; 

/*  see  if  lino  is  s  oommar.t  */ 

if  (inline (OJ  —  'I'  ||  inline (0}  —  ||  inline (0]  --  NULL) 

continue; 

/*  see  if  done  */ 

if  (strncmpa (inline, "END" , 3)  mm  0) 
break; 

/*  see  if  include  file  */ 

else  if  (strncmpa (inline, "INCLUDE", 7)  mm  0) 
open_include (strml, inline, errf lag) ; 


/*  must  be  an  element  variable  descripton  */ 

/*  copy  element  name  */ 

for  (i  -  0  ;  inline (i)  !-  NULL  &&  inline(i)  !-  's'  ;  i++) 

e_name[i]  »  inline [i]; 
e_name(i]  “  NULL; 
strstrip(e_name) ; 

/*  strip  off  tabs  and  spaces  */ 

for  (i++;  inline [i]  ■■  '  '  II  inline [i)  ■■  '  \t'  ;  i++) ; 

/*  copy  variable  name  */ 

for  ( j  «*  0  ;  inline(i]  !“  NULL  &&  inline(i)  !  =»  '  '  &&  inline[i]  !»  '  \t' 
i++,  j++) 

v_name[j]  <*  inline  (i); 
v_name(j)  **  NULL; 
str strip! v_name)  ; 

/*  copy  values  */ 

for  (j  -  0  ;  inline (i]  I-  NULL  ;  i++,  j++) 
line(j]  -  inline[i]; 
line[j)  -  NULL; 

Stoda (line, value, Sncnt,  2) ; 

if  (ncnt  “•=  0)  /*  initialize  to  zero  */ 
value (0]  «  value [I]  “  0.0; 
else  if  (ncnt  «“  1) 
value [1]  *  0.0; 
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/*  find  the  alamant  */ 

for  (i  *  0  ;  i  <  nalm  is  atrcmp (e_name, a ( i] ->name)  I*  0  ;  i++) ; 

if  (i  >«  nalm)  /*  didn't  find  tha  alamant  */ 

( 

printf ("  ***  Error  Lina  %d  in  fila  %s\n", 
strm->line__nbr,  strm->f ilanama) ; 
printf ("  ***  ELEMENT  Not  Found  Error  (%a)  i\n  %s\n\n", 

e_name, inline) ; 

*arrflag  *  1; 
continue; 

) 


/*  find  tha  external  input  variable  */ 

for  (j  "  0  ;  j  <  e [ i] ->device->nbr_ext_in  S& 

atrcmp (v_name, a (i] ->devica->ext_in_name [ j) )  !«•  0  ;  j++) 

if  (j  >=  e [ i ] ->device->nbr_axt_in)  /*  didn't  find  tha  axtarnal  input  */ 
( 

printf ("  ***  Error  Line  %d  in  fila  %s\n", 
atrm->line_nbr , strm->f ilanama) ; 

printf ( "  ***  EXTERNAL  INPUT  VARIABLE  Not  Found  Error  (%a)  i\n", 

v_nama) ? 

printf ("  %s\n\n", inline) ; 

*errflag  -  1; 
continue; 

) 

/*  store  in  queue  */ 

(*qq)->elm  “  i; 

<*qq)->var  «■  j; 

(*qq)->value  =  value [0]; 

(*qq)->time  =  value (1); 

/*  allocate  new  queue  structure  */ 

q_temp  «  (QUEUE  *)  calloc ( 1 , sizaof (QUEUE) ) ; 
q_temp->last  ■>  *qq; 

*qq  ■*=  q_temp; 


} 


) 


read_reference  (strnil,  simulate,  nn,  nnode,  errf  lag) 
STREAM  PTR  **strml; 
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SIMULATE  *aimulate; 

NODE  **nn; 
int  nnode ; 
int  *errflag; 

( 

STREAM_PTR  *atrm, *temp_atrm; 

char  inline [MAXCHAR] , llna (MAXCVAR] ,  n_name [MAXCHAR] , a_nama {MAXCHAR] ; 
int  f lag, i, j , ncnt ; 
double  val ; 

while (1) 

( 


/*  read  in  next  line  */ 
atrm  ■  *atrml; 

atrm->line_nbr  +»  1;  /*  increment  line  counter  */ 

while  (fgeta < inline, MAXCHAR, atrm->in)  ~  NULL) 

( 

/*  Read  to  the  end  of  the  file,  time  to  pop  up  one  in  the  include 
atack  '/ 

fcloae (atrm->in) ; 

if  (atrm->laat  “  NULL)  /*  read  back  to  the  beginning  */ 

( 

free (atrm) ; 

printf("  ***  Error  Line  %d  in  file  %a\n", 
atrm->line_nbr , atrm->f ilename) ; 
printfC  ***  EOF  reached  in  REFERENCE  i\n  %a\n\n",  inline) ; 
*errflag  =  1; 


return  1; 

) 

temp_atrm  ”  atrm; 
atrm  «  atrm->laat; 
free (temp_atrm) ; 

*atrml  -  atrm; 


) 

atratrip (inline) ; 

/*  aee  if  line  ia  a  comment  */ 

if  (inline(O)  ««='!'  ||  inline[0]  «=  '  #'  ||  inline(O)  “  NULL) 

continue; 

/*  aee  if  done  */ 
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.11  (strnempa  (inline ,  "END" ,  3)  —  0) 
rtturn  0; 

/*  see  il  include  file  */ 

else  if  (strnempa (inline, "INCLUDE", 7)  0) 

open_include (strml, inline, errflag) ; 

/*  must  be  the  reference  voltage  or  ourrent  node  */ 

/*  see  if  voltage  node  */ 
atrcpy(line, inline) ; 

if  (inline ( 0]  —  'v'  ||  inlina[0]  —  'V') 

( 

/*  atrip  off  v  and  colon  */ 

for  (i  «■  0  ;  line(i]  l«  '  s'  &&  line(i)  !“  NULL  ;  i++) 
line(i]  «  '  '  ; 

lined]  -  '  '  ; 

stratrip (line) ; 

/*  grap  the  node  name  */ 

for  (i  -  0  ;  line(i]  !-  &&  line(i]  !-  NULL;  i++) 

n_name[i]  =  line(i]; 
n_name[i]  «  NULL; 

stratrip (n_name) ; 

/*  grap  the  subnode  name  */ 

if  (line  [i]  !=  NULL)  i++; 

while  (lined]  «»«*''  II  lined]  ”  '\t')  i++; 

for  (j  -  0  ;  line  [i]  !-  NULL  &&  lined]  1®  '  '  &&  lined]  !“  '\t' 

;  i++, j++) 

s_name(j]  ■  line(i]; 
s_name(j]  ■>  NULL; 

stratrip (a_name) ; 

/*  find  the  value  */ 

Stoda(line+i  ,  &val  ,  Sncnt,  1); 

if  (ncnt  ®=  0)  val  ®  0; 


/*  find  the  node  and  subnode  */ 
for  (i  <=  0  ;  i  <  nnode  ;  i++) 
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if  (atromp (n_name, nn [ i) ->name)  ■«  0)  break; 

if  (i  ■»  nnode)  /*  didn't  find  the  noda  */ 

I 

printf ("  ***  Error  Lina  %d  in  file  %a\n", 
atrm-:>line_nbr,  atrm->f ilename) ; 
printf ("  ***  NODE  not  found  ERRORAn  %a\n\n" ,  inline) ; 

•errflag  ■  1; 
continue; 


for  (j  “  0  ;  j  <  nn (i) ->nbr_aubnode  ;  j++) 

if  (atreimp  (a_name,  nn  l  i) ->aubnode  [  j) ->name)  »■  0)  break; 

if  <j  ■“  nn (i) ->nbr_aubnode)  /*  didn't  find  the  aubnode  */ 

t 

printf ( "  **•  Error  Line  %d  in  file  %a\n’\ 
etrm“>lina_nbr ,  atrm->f ilename)  ; 
printf  <"  ***  SUBNODE  not  found  ERRORAn  %*\nW,  inline)  ; 

•errflag  -  1; 
continue; 


if  (nn( i] ->aubnode ( j) ->type  I-  0)  /*  Not  a  voltage  aubnode  */ 
( 

printf ("  ***  Error  Line  %d  in  file  %a\n", 
atrm->line_nbr, *  crm->f ilename) ; 
print  f ("  ***  SUBNODE  of  wrong  type  An  %a\n\n", inline) ; 

•errflag  ■  1; 
continue; 


nn  (  i  ) ->»ubnode  (  j  ]  ••>r*f_£lag  "  1; 
nn ( i ) ->aubnode [ j ) ->init_volt  »  val; 


/*  aee  if  current  node  •/ 

else  if  (inline (0)  »“  * i'  ||  inline (0)  ■■  'I') 

( 

/*  strip  off  i  and  color,  */ 

for  (i  -  0  ;  line ( i ]  !-  ' i ’  it  line[i)  1-  NULL  ;  i++) 
line [ i )  -  '  ' ; 
line ( 1}  -  '  '  ; 

atrstr ip ( line)  ; 

/*  grap  the  node  name  */ 

for  ( i  «•  0  ;  line(i)  !“  '  i'  & S  line[i]  !»  NULL;  i  +  +) 
n_name[i)  «  line[i); 
n  nameli]  »■  NULL; 
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strstrip (n_name) ; 

/*  grap  tha  subnods  name  */ 

if  (line ( i]  !-  NULL)  1++; 
for  (j  -  0  ;  lined]  !-  NULL  ;  i++,  j++) 

s_name[j]  ■  line(i]; 
s_name(j)  -  NULL; 

strstrip (s_name) ; 

/*  find  the  node  and  subnode  */ 

for  (i  *»  0  ;  i  <  nnode  ;  i++) 

if  (stromp(n_name,nn(i] ->name)  ■■  0)  break; 

if  (i  •*"  nnode)  /*  didn't  find  the  node  */ 

( 

printf  ("  ***  Error  Line  %d  in  file  %s\n", 
atrm->line_nbr ,  3trm->f ilename)  ; 
printf ( "  ***  NODE  not  found  ERROR; \n  %s\n\n", inline) ; 

*errflag  «  1; 
continue; 

} 

for  (j  ■  0  ;  j  <  nn [i] ->nbr_subnode  ;  j++) 

if  (strcmp (s_name, nn ( i] ->subnode ( j) ->name)  »•  0)  break; 

if  (j  “*»  nn [i] ->nbr_subnode)  /*  didn't  find  the  subnode  */ 

( 

printf  ("  ***  Error  Line  %d  in  file  %s\n", 
atrm->line_nbr , strm->f ilename) ; 
printf  ("  ***  SUBNODE  not  found  ERROR:\n  %s\n\n", inline) ; 

*errflag  “  1; 
continue; 

) 

if  (nn ( i] ->subnode ( j] ->type  !“  1)  /*  Not  a  current  subnode  */ 

( 

printf  ("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename)  ; 
printf  ("  ***  SUBNODE  of  wrong  type s \n  %s\n\n", inline) ; 

*errflag  «  1; 
continue; 

) 

nn ( i ) ->subnode ( j ] ->ref_f lag  =  1; 


else  /*  its  an  error  */ 

( 

printf("  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename) ; 
printf ("  ***  SYNTAX  ERROR: \n  %s\n\n" , inline); 
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) 


*errflag  «  1; 

} 


set_de£aults (simulate) 

SIMULATE  * simulate; 

( 

simulate->dt  “  .001; 
simulate->tmin  “  0.0; 
aimulate->tmax  »  10.0; 
simulate->time  *  simulate->tmin 
aimulate->max_iteration  ■  30; 
simulate->converge  **  .0000001; 
simulate->delta  =  .01; 
simulate->delta_min  •>  .001; 
simulate->print  dt  =  0.05; 

) 
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/*  make_jaaobian. c  */ 
/*  Norbert  H.  Doerry 

15  February  1989 


*/ 

/*  This  routine  creates  the  jacobian  matrix  which  gives  the  partial 
of  each  implicit  variable  with  respect  to  the  individual  variables. 

It  is  created  by  patching  together  the  individual  jacobian  submatricea 
of  the  different  elements. 

The  hard  part  about  the  construction  of  this  matrix  is  determining 
which  column  a  variable  in  the  submatrix  corresponds  to.  Here  are  the 
rules . 

If  the  variable  is  attached  to  a  voltage  subnode  s 

( 

if  the  variable  is  attached  to  the  reference  subnode, 

ignore  it.  (the  reference  subnode  is  identically  zero) 


else 

find  the  element  in  xtab  that  corresponds  to  the  voltage 
subnode.  That  element  number  is  the  column. 


> 

else  the  variable  is  attached  to  a  current  subnode 

{ 

if  the  variable  is  the  first  one  of  a  subnode  other  than 
the  reference  subnode, 

add  the  negative  of  the  jacobian  element  to  the 
columns  corresponding  to  the  remaining  variables 


else 

add  the  jacobian  element  to  the  colum  corresponding  to  the 
element 


V 

♦include  <stdio.h> 
♦include  <math.h> 
♦include  "doerry.h" 


/*  note  :  don't  need  :  itab,  nitab,  n,  nnode,  simulate  */ 

make_ jacob ( jacob, xtab, nxtab, itab, nitab, ee , nelm, n, nnode, simulate ) 
double  * jacob; 

XTABLE  **xtab; 

ITABLE  **itab; 

int  nxtab, nitab, nelm, nnode; 

ELEMENT  “ee; 
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NODE  **n; 

SIMULATE  aimulate; 

{ 

int  i, j , k, eptr, vptr, vtyp, iptr, rowa, col; 
int  mult; 

/*  zero  out  the  jacobian  array  */ 

for  (i  -  0  ;  i  <  nxtab  *  nltab  ;  i++) 
jacob(i]  -  0.0; 

/*  step  through  xtab  V 

for  (i  »  0  ;  1  <  nxtab  ;  i++) 

( 

for  (j  “  0  ;  j  <  xtab[i]->nbr  ;  j++) 

< 

eptr  «  xtab [ i ] ->e ( j] ; 
vptr  »  xtab  [i] ->v  (  j] ; 
mult  ■  xtab [i] ->mult [ j] ; 

for  (k  =  0  ;  k  <  ee [eptr ] ->con . nbr_implicit  ;  k++) 

{ 

jacob [ee [eptr ] ->con . imp_index [k]  +  nltab  *  i]  +“ 

ee [eptr] ->con . jacob_in  [k  +  ee [eptr] ->con .nbr_implicit  *  vptr] 
*  mult; 

> 

) 

) 

) 
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/*  penner. h  */ 

/*  Norbert  H.  Doerry 

14  March  1989 

This  is  an  include  file  which  tells  the  main  program  where  to  get 
the  proper  information  for  the  devices 

***  Modified  11  April  1989  by  nhd  **** 

added  breaker_3p 

***  Modified  15  April  1989  by  nhd  **** 

added  synch_mach,  speed_reg,  volt_reg, ind_motor , gas_turbine,  source 
integrator 

***  Modified  27  April  1989  by  nhd  **** 
added  volt  meter 


*/ 


typedef  int  (*FUNCTION_PTR) () ; 

♦define  NBR_DEV_FILES  2  /*  number  of  device  description  files  */ 

static  char  *device_f ile [ ]  •»  /*  names  of  the  device  description  files  */ 

{ 

"/mit/13 . 411/aepsip/three_phaae . input", 

"/mit/13 . 4 1 l/sepsip/one_phase . input" 


static  int  nbr_device_f ile ( ]  “ 

{ 

12,  /*  number  of  devices  per  file  */ 

10 

} ; 

static  char  *device_name { ]  »  /*  names  of  devices  */ 

( 

"t_line_3p", 

"rl_wye", 

"gen_synch_3p", 

"awitch_3p" , 

" rma " , 

"breaker_3p", 

"synch_mach", 

"speed_reg" , 

"volt_reg" , 

"ind_moto  r " , 

"gas_turbine” , 
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"volt_meter", 

"induator", 

"capacitor", 

"raaistor", 

" voltaga_aouroa " , 

"current_aource" , 

"dioda", 

"switch", 

"pulse_awitch" , 

"source", 

" integrator" 

)  ; 

/*  device  functions  for  the  above  device  namea  */ 

♦define  FO  t_line_3p 

♦  define  T1  rl_vrye 
♦define  F2  gen_aynch_3p 
♦define  F3  switch_3p 
♦define  F4  rms 

♦  define  F 4 a  brenker_3p 
♦define  F4b  synch_mach 
♦define  F4c  speed_reg 
♦define  F4d  volt_reg 
♦define  F4e  ind_motor 
♦define  F4f  gas_turbine 
♦define  F4g  voltameter 

♦define  F5  inductor 
♦define  F6  capacitor 
♦define  F7  resistor 
♦define  F8  voltage_source 
♦define  F9  current_ source 
♦define  F10  diode 
♦define  Fll  spst_switch 
♦define  F12  pulse_switch 
♦define  F13  source 
♦define  F14  integrator 

int  FO  ( ) ; 
int  FI  ()  ; 
int  F2  ()  ; 
int  F3  0  ; 
int  F  4  ()  ; 
int  F4a  () ; 
int  F4b  ( ) ; 
int  F4c  <) ; 
int  F4d() ; 
int  F4e  ()  ; 
int  F4f  ( ) ; 
int  F4g ( ) ; 
int  F5  ()  ; 
int  F 6  ( )  ; 
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int  F7  ()  ; 
int  ra  ()  ; 
int  F9  ()  ; 
int  F10  <); 
int  Fll  (); 
int  F12  <); 
int  F13  (}; 
int  F14  <); 


static  FUNCTION_PTR  dav_f nctn (] 

( 

FO, 

FI, 

F2, 

F3, 

F4, 

F4a , 

F4b, 

F4c, 

F4d, 

F4e , 

F4f , 

F4g, 

F5, 

F6, 

F7, 

F8, 

F9, 

F10, 

Fll, 

F12 , 

F13 , 

F14 


/*  addrassss  of  davica  functions  */ 
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/*  print_natwork. c  */ 

/*  Norbert  H.  Doerry 

18  January  1989 

This  file  contains  tha  routina  naadad  to  display  tha  natwork  connactions 
for  tha  program  aapaip. 

*/ 

lincluda  <stdio.h> 

♦include  <math.h> 

♦include  "doarry.h" 

print_network (out, nn, nnoda) 

FILE  *out ; 

NODE  **nn; 
int  nnoda; 

( 

int  i, j, k, cnt; 

char  c, inline [MAXCHAR] ; 

fprintf (out, "\n\n  NETWORK  SUM4ARY\n\n" ) ; 

cnt  «  0 ; 

for  (i  -  0  ;  i  <  nnoda  ;  i++) 

( 

fprintf (out , "\n  NODE  !  %s\n", nn |i] ->namo) ; 
if  <line_counter (Sent, 20, Sc, out)  «■  ' q' )  return; 

for  (j  «  0  ;  j  <  nn[i]->nbr_subnode  ;  j++) 

{ 

if  (nn ( i] ->subnode [ j] ->type  «  0) 
fprintf (out, "  VOLTAGE  ”)  ; 

else 

fprintf (out,  "  CURRENT  "); 

fprintf (out, "SUSNODE  i  %e\n", nn ( i) ->aubnode [ j ] ->name) ; 
if  (line_counter (Sent, 20, Sc, out)  “  ' q' )  return; 

for  (k  “  0  ;  k  <  nn ( i ] ->subnoda [ j ) ->nbr_connect  ;  k++) 

{ 

fprintf (out, "  %20s  s:  %-s\n", 

nn ( i) ->subnode ( j) ->e lament (k) , 
nn  ( i) ->subnode ( j) ->variable (k) ) ; 
if  (line_counter (Sent, 20, Sc, out)  '<?')  return; 


) 


) 


if  (out  ! »  stdout)  continue; 

printf("  Enter  <RETURN>  to  continue  ...  "); 
gets (inline) ; 
strstrip(inline) ; 
if  (inline{0]  «»  'q')  return; 

if  (inline (0]  «==  'b')  i  -■  2;  /*  go  back  one  node  */ 
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if  (i  <  -1)  i  -  -1; 


) 

) 

/*  lino_counter  */ 

/*  this  routine  keeps  treck  of  the  number  of  lines  printed  on  the  screen. 

After  'maxcnt'  number  of  lines  sre  listed,  the  user  is  prompted  to 
hit  s  return  to  continue.  'rtnchar'  is  the  first  character  of  the 
line  that  the  user  inputs  (That  is  a  non  white  space  ) 

♦/ 

line_counter (cnt, maxcnt, rtnchar, out) 
int  * cnt, maxcnt; 
char  ‘rtnchar; 

FILE  *cut; 

( 

char  inline (MAXCHAR) ; 

♦rtnchar  “  NULL;  /*  default  value  */ 

(*cnt)  +=  1;  /*  increment  counter  */ 

if  (*cnt  !«=  maxcnt) 
return  0; 

(*cnt)  “  0; 

if  (out  «■=  stdout)  return  0;  /*  don't  prompt  if  not  printing  to  screen  */ 

printf("  Enter  <RETURN>  to  continue  ...  "); 
gets (inline) ; 
strst rip ( inline ) ; 

♦rtnchar  •  inline (0] ; 
return  (int)  inline (0]; 
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l*  read_deviae  .c  */ 
/*  Norbert  H.  Doerry 

6  March  1989 


*/ 

/*  This  routine  reads  in  all  the  information  for  a  device  from  an  input 
stream.  The  following  commands  are  recognized  t 

NAME  name  of  device 

INPUTS  [ nbr ] 
input  name  1 
input  name  2 
etc 

STATES  [nbr] 
state  name  1 
state  name  2 

etc 

IMPLICIT  [nbr] 

implicit  variable  name  1 
implicit  variable  name  2 
etc 

EXTERNAL  IN  [nbr] 

type  :  extern  in  name  1 
type  !  extern  in  name  2 
etc 

EXTERNAL  OUT  [nbr] 

type  i  extern  out  name  1 
type  :  extern  out  name  2 
etc 

PARAMETERS  [nbr] 
parameter  name  1 
parameter  name  2 
etc 

END 

This  routine  returns 

0  successful  read  of  data 

1  encountered  bad  data,  but  able  to  recover 

2  reached  EOF  before  END  statement 

NOTE:  THIS  FILE  MUST  BE  LINKED  TO 
ioliba . c 
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*/ 

♦include  <stdio.h> 

♦include  "doerry.h" 

int  read_device (d, in, typ) 
DEVICE  *d; 

FILE  *in; 
int  typ; 

{ 

char  inline {MAXCHAR) ; 
char  command (MAXCHAR] ; 
char  lines ( 4} [MAXCHAR 1 ; 
int  ana ,  cnt , name_f lag, ncnt ; 
float  flota[2]j 
int  i ; 

char  *cal.loc  ( )  ,  *malloc  ( )  ; 

ans  =  0; 
name_f lag  ■  0 ; 

/*  initialize  the  d  array  */ 


d->type  =  typ; 

d->nbr_inputs  *  0; 

d->nbr_atates  =  0; 

d->nbr_implicit  =  0; 

d->nbr_ext_in  =  0; 

d->nbr_ext_out  ■  0; 

d->nbr_param  «=  0; 


while  (1 ) 

{ 

if  (fgets (inline,  MAXCHAR,  in)  NULL) 
return  2; 

parse (inline, (char  *)  lines,  (int)  MAXCHAR,  (int)  4,  Sent); 
if  (cnt  «==  0)  continue;  /*  skip  blank  lines  */ 

if  (lines (0](0)  '\n')  continue;  /*  skip  lines  beginning  with  CR  */ 

if  (lines[0](0J  «■•='!'  )  continue;  /*  skip  lines  beginning  with  !  */ 

if  (lines[0){0)  =«  '♦'  )  continue;  /*  skip  lines  beginning  with  #  */ 

if  (cnt  >  1  &&  strnempa (lines [ 0] ,  "NAME" ,  3 )  “  0) 

( 

if  (name_flag  ==  1)  f ree (d-^name ) ; 
name_flag  =  1; 

strsplit (inline, command, 1, strlen (inline) ) ; 
strstrip (command) ; 

d->namc  =  (char  *)  malloc ( (unsigned)  strlen (command)  +  1); 
strepy ( d->name , command) ; 

) 
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else  if  (ont  >  1  fii  strnampa (lines [ 0] , " INPUTS”, 3)  —  0) 
( 

Stofa (lines [ 1 ] , f lota, Sncnt , 1) ; 
if  ((int)  flota(O)  >  0  4&  ncnt  ■■  1) 

( 

/*  saa  if  inputs  alraady  allocatad  */ 

if  (d->nbr_inputs  >  0) 

< 

for  (i  -  0  ;  i  <  d->nbr_inputa  ;  i++) 
free(  (char  *)  d->input_name [ i) ) ; 
free<  (char  *)  d->input_name) ; 

) 


/*  update  number  of  inputs  */ 
d->nbr_inputa  =  (int)  flota[0); 

/*  allocate  the  pointer  array  */ 

d->input_name  -  (char  **)  calloct  (unsigned)  d->nbr_inputs, 

aizeo£(char  *)); 


/*  read  in  the  input  names  */ 

for  (i  <*  0  ;  i  <  d->nbr_inputs  ;  i++) 

{ 

if  (fgets (command,  MAXCHAK,  in)  «*■  NULL) 
return  2; 

strstrip (command) ; 

if  (command  [0]  =■='!'  II  command(O)  ■«»'#'  || 

command [0]  ==  NULL) 

( 

i--; 

continue ; 

) 

d->input_name [i]  =  (char  *) 

calloc(  (unsigned)  atrlen (command)  +  1, 
sizeof (char) ) ; 

strcpy (d->input_name [  i)  , command) ; 


else  if  (cnt  >  1  &&  strncmpa ( lines [ 0 ]," STATES ",  3)  ==  0) 

{ 

Stofa (lines ( 1) , flota, incnt, 1 )  ; 
if  ((int)  flota(0]  >  0  &&  ncnt  ==  1) 

{ 
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I*  sea  if  states  already  allocated  */ 

if  (d->nbr_atates  >  0) 

( 

for  (i  -  0  ;  i  <  d->nbr_atates  ;  i++) 
free(  (char  *)  d->state_name [ij ) ; 
free(  (char  *)  d->atate_n«me) ; 

) 

/*  update  number  of  states  */ 
d->nbr_states  «*  (int)  flota [0]; 

/*  allocate  the  pointer  array  */ 

d->state_name  •*  (char  **)  calloc(  (unsigned)  d->nbr_states, 

sizeof (char  *)  )  ; 


/*  read  in  the  state  names  */ 

for  (i  «  0  ;  i  <  d->nbr_states  ;  i++) 

( 

if  (fgets  (command,  MAXCHAK,  in)  •»«=  NULL) 
return  2; 

strstrip (command) ; 

if  (command [0]  »=  '  ! '  ||  command [0]  «  '#'  II 

command  (0]  «==  NULL) 

( 

i  —  ; 

continue? 

) 

d->state_name [ i ]  «  calloc (  (unsigned)  strlen (command)  +  1, 

sizeof (char) ) ; 

strepy ( d->state_name [ i] , command) ; 

) 


else  if  (ent  >  1  &&  strnempa ( lines [ 0 IMPLICIT" , 3 )  ==  0) 

{ 

S to fa (lines ( 1 ] , flota, Sncnt, 1)  ; 
if  ((int)  flota  (0]  >0  &&  nent  ==  1) 

< 

/*  see  if  implicit  already  allocated  */ 

if  (d->nbr_implicit  >  0) 

( 

for  (. i  =  0  ;  i  <  d->nbr_implicit  ?  i+  +  ) 
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1  tae(  t“h«>  *  |  d“?>4mplioil_n*n\a  |i) )  f 
fleet  (<‘*lia»  *)  d-^implielt _name)| 
i 

*  update  m*iRl>*v  of  t mp licit 
d-'-nl't  implicit.  »  (Inti  fl$te(0)f 

*  t he  p<J>4|,  a»t  ay  »,f 

-  J(*|M  a 

ichai  **l  o»iJoo(  (unaiyned)  d-Xilu^implioit,  aiseof  (ohai  *))J 

*  ie*d  in  t|\#  implicit  name*  */ 

r  i  u  -  o  i  *■  d"'»i*l>r_lmp licit  t  i  +  +  ) 

t 

it  (  f  4«t  u  i  command,  HMCHAJ* ,  in)  ■“  NULL) 

iitnni  1 1 

sti  at  t )  ■>  (  ommand) ) 

if  (command lo)  ‘  H  oommandlO)  »»  ’I’  II 

command  |l' )  mm  NULL! 

I 

i  -  - 

cent  inn*) 

I 

d-.-iW|'l  i  'it  name  I  i  }  » 

■illo't  tunaisined)  at »\ en (command)  +  1 , aiaeot  (char) ) ; 
at  v  .-j  y  (d-  •  unj'l  lo  i  t_nam*  I  i  )  ,  command)  ; 


elaa  if  (ont  '■  J  i.  i.  at i nempa ( 1 i nea j 0 ),  "EXTERNAL"  ,  3 )  ""  0 
at.  atin  'rop*  (Unea  |1 )  ,  "INPUT”,  3)  —  O' 

( 

S'  t  h  1 1  i  n»s  (  »  )  ,  t  lot  a ,  fcnont  ,  1  ! 
if  ((wit.)  flota(O)  0  it  nent  •<“  1) 

I 

*  if  ext  in  aiieady  allocate!  *, 

i  f  (d-'-nl-l  ext  in  '*  0) 

t 

foi  (1  »•  0  i  v  d-onbi  ext  in  i  i+M 
f i a « (  (dial  •)  d->ext  in  name (1 } )  ; 
fleet  (.'hai  *)  d~*a,\»  m  name),' 

flee,  (dial  •)  il--typ*  ext  in), 

I 
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! *  update  number  of  ext_in  */ 
d~/*nbr_ext_  in  ■  (int)  flota(O); 

/ *  »i locate  the  pointer  array  */ 

d->ext__in_name  «  (char  •*)  aalloe(  (un»i<grned)  d«>nbr_ext_in, 

aiaeof  (ohar  * ) ) ; 

d-;>type  _ext_in  "  (int  *)  oelloo(  (unsigned)  d->nbr_ext  in, 

iieof(int)  )/ 

.'*  read  in  the  ext_in  namea  */ 

for  (i  ■  0  /  i  <.  d->nbr_ext_in  /  ±1 

( 

if  (fgeta (command, MAXCHAR, in)  —  NULL) 
return  2/ 

get  f i ret.  non  apace 
atratrip (command) / 


if  (command(O)  «<■  '  I  '  ||  oommand(O)  •  '  t'  II 

command  (0)  NULL) 

( 

i  / 

continue/ 


get  type  *, 

if  ( at rnempa ( command,  "BOOLEAN ",  3 )  0) 

d->type_ ext_in { i )  «  BOOLEAN/ 

else  if  (atrnempa  (oojmmand,  "SWITCH”,  3)  0) 

d->t.ype_ext_in(  i)  ■  SWITCH/ 

else  if  ( at rnempa (command, " INTEGER" , 3 )  »"  0) 
d-»type  ext  in|i)  -  INTEGER/ 

else  if  (at rnempa (command, "FLOAT" , 3 )  »«  0) 
d->type_ext  in|i]  m  FLOAT/ 

else 

(  /*  error  reading  type 

ana  ■  1  / 

et->type_oxt_  in  |  i  )  *■  FLOAT/ 


*  get  name  * 


s'  rapltl  (command,  owwnsnd,  1  ,  MAXCHAR)  / 


»  /n 


read  device, o 


■tr»t rip (command) ; 

d->ext_in_nan\e  ( i  ]  “  aalloc(  (unsigned)  strlen (command)  +  1, 

aiaaof (ohar) ) t 

atropy  (d-:»axt_in_nama  { i ) ,  command)  / 

> 


I 

) 

ala«  if  (cnt  >  2  tt  atrnompa(iina#(0) , "EXTERNAL", 3)  --  0 
it  atrncmpa (lines ( 1) , "OUTPUT", 3)  -•  0) 

( 

Stofa(lines[2], flota, tnrant, 1) ; 
if  ((int)  flota(O)  >  0  tt  ncnt  ■»  1) 

( 

/*  aaa  if  ext_cut  clraady  allocated  */ 

if  (d->nbr_axt__out  >  0) 

( 

for  (i  «  C  ;  i  <  d->nbr__ext_out  ;  i++) 
fr*e(  (char  *)  d->ext_out_name  (  i)  )  ; 
f rea (  (char  *)  d->ext_out_name) ; 
free)  (char  *)  d->type_ext_out) ; 

) 


l*  updata  number  of  axt_out  */ 
d->nbr_ext._out  •  (int)  flota[0); 

al locate  the  pointer  array  •/ 
d->axt_out_name  - 

(char  **)  calloct  (unsigned)  d->nbr_axt_out , aixeof (char  *)); 
d->type_ext  out  « 

(int  *)  oalloc(  (unsigned!  d'->nbr_axt_out,  aiaaof  (int)  )i 

*  read  in  the  ext_out  names  *' 

for  (i  »  0  ;  i  <  d->nbr _ext_out  ,*  i++) 

( 

if  ( f gets (command , MAXCHAP , in)  NULL) 

return  i; 

/  •*  yet  first  non  space  * / 
atrat rip (command)  ; 


if 


(command (0)  ■"  '  ! ’  It  command ( 0 ) 
command (0)  ““  NULL) 


’  #  '  II 


read  devioe.o 


oontinue; 

) 


/*  get.  type  */ 

if  (at.rncmpa  (command,  "BOOLEAN",  3)  ■■  0) 
d->type_ext_out ( i J  -  BOOLEAN/ 

else  if  (atrnompa (command, "SWITCH" , 3)  *»**  0) 
d->type_ext_out (i]  ■  SWITCH; 

•laa  if  (atrnampa (command, "INTEGER", 3)  mm  0) 
d->type_ei:t_out  (i]  -  INTEGER; 

e  lae  if  (atrnompa (command, "FLOAT", 3 )  0) 

d->type  _axt_out  |  j. )  »  FLOAT; 

aiae 

(  /*  error  reading  typa  */ 

ana  ™  1; 

d->typ«_axt_out ( i )  -  FLOAT; 

I 


/*  gat  nama  */ 

a  trap  lit  (command,  aommand,  1 ,  MAXCHAA)  ; 
atr strip (command) ; 

d->ext_out_name ( i ]  « 

calloc(  (unaignod)  atr lan (command)  +  1,  aiceof (char) ) ; 
otrcpy (d- >axt_cut_nama ( i ] , command) ; 


elae  if  (cnt  >  1  44  atrnompa ( linaa ( 0 J , "PARAMETERS" ,  3)  0) 

( 

Stofa(llnaa(l] , flota,  Sncnt,  1)  ; 
if  ((int)  flot«(0]  >  0  U  ncnt  «>u  1) 

( 

/*  m*  if  param  already  allocated  */ 

if  (d ->nb v_param  >  0) 

( 

for  (i  -  0  ;  1  d->nbr_param  ;  i++) 
fraa(  (char  *)  d->param_nama | i ) ) ; 
fr*e(  (char  *)  d->poram_name ) ; 

) 


r>:  - 


update  number  of  puram  *, 
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d->nbrjparam  *  (int)  flota(O)/ 

/*  alloaate  tha  pointar  array  */ 

d->param_nam*  ■  (ohar  **)  oalloo(  (unaignad)  d->nbr_param, 

aiaaof  (ohar  *)  )  / 

/*  raad  in  tha  param  namaa  */ 

for  (i  «  0  /  i  <  d->nbrjparam  /  i++) 

( 

if  (fgata (command, MAXCHAR, in)  —  NULL) 
raturn  2; 

atratrip (aemmand)  ; 


if  (command  (0)  »•«  '  t  '  ||  command  (0)  II 

command (0)  ■■  NULL) 

( 

i  — ; 

continua ; 

) 

d->param_nama ( i )  •  calloc(  (unaignad)  atr lan loommand)  +  1, 

aitaof (char) )  : 

strcpy  (d->param_r'.»ma  ( i)  ,  command)  / 

) 


) 


) 

alaa  if  (cnt  >  0  (i  atrncmpa  ( linaa  ( 0) ,  "END" ,  3 )  0) 

( 

if  (noma_fiag  --  0)  ana  -  1; 
raturn  ana : 

I 

alsa 

ans  *1;  /*  Encountarad  bad  data  */ 

) 

) 
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/*  read_e lament .o  * / 

!*  Norbert  H.  Doarry 

2?  October  198« 

This  fil*  contain*  a  funation  for  reading  an  element  deaaripti 
from  a  file, 

The  form  of  the  device  description  iai 

DEVICE  ELEMENT 
PARAMETER_NAME 

I  I 

\l  1/ 

\  / 

END 

where 

DEVICE  ia  the  name  of  the  device  type  (i.e.  reaiator) 
ELEMENT  i*  the  apeoific  element  name  (i.a.  PI) 

PARAMETER  NAME  ia  the  name  of  the  DEVICE  PARAMETER  (i.e. 
PARAMETER  ia  tha  value  of  the  Parameter  (i.e.  100  ) 


PARAMETER 


\l  M 
\  / 


Thia  routine  returns i 

0  successful  reed  of  drta 

1  encountered  bad  data,  but  able  to  recover 

2  encountered  EOF  before  END  Statement 

-1  incomplete  definition  of  parameters,  defaulted  to  rero 
-2  unabr*  to  find  device  type 


NOTEi  Thia  file  must  be  linked  to 
iol iba . c 


linclude  <stdio,h> 

I  include  "doerry.h" 

int  r *ud_e lament  (e,  strut,  atrial,  dev,  ndev) 


ELEMENT  •*: 
£>TREAM_PTR  *atrm,‘ 
int  aerial/ 

DEVICE  “dev; 
int  ndsv; 


/*  element  structure  to  hold  date 
/*  pointer  to  stream  structure  */ 
/*  serial  number  of  element  */ 

/*  array  of  device  deacriptiona  */ 
,  *  number  of  device  descriptions  */ 


FILE  4  in;  '  input  stream  t.c  j  eed  data  from 

char  inline  (MAXCHAR)  ,'line  (MAXOHAP  )  ; 
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int  i,  j,  k,  ncnt, flag, dp, ana; 

float  f lota (2) ; 

ahar  *oalloc ( ) ,  *malloc ( ) ; 

int  *param_flag; 

ohar  ooimtand  ( MAXCHAR )  ; 

ana  <*  0; 

in  -  atrm->in;  /*  aat  input  atraam  */ 

flag  -  0; 

whila  (flag  -«  0} 

( 

atrm->lina_nbr  +■  1;  /*  inoramant  lina  eountar  */ 

if  (fgata (inlina, MAXCHAR, in)  —NULL) 
raturn  2; 

/*  atrip  inlina  of  laading  and  trailing  blanka  */ 
atr at  rip (inlina ) ; 

/*  if  commant  or  blank  lina,  raad  in  anothar  lina  */ 

if  (inlina (0)  —  NULL  ||  inlina(O)  —  'I'  II  inlina[0]  —  ' #•  ) 
continua; 

/*  jtrip  off  tha  davica  nama  V 
■traxtract (inlina, lina, 1, MAXCHAK) ; 

/*  find  which  davica  wa  ara  talking  about  */ 

for  (dp  •  0  ;  dp  <  ndav  ti  ntrcmp (dav (dp) - >nama, lina)  !■  0  ;  dpt+) / 

/*  aaa  if  did  not  find  davica  */ 

if  (dp  **»  ndav) 

( 

/*  if  didn't  find  davica,  aat  tha  alamant  nama  to  tha 
input  lina  tor  turthar  daooding  in  parant.  routina  */ 

a->nama  -  (ohar  *)  cal  loo ( vunaignad)  atrlan  (inlina)  +  l, 

aiaaof (char) ) ; 

1 1  fercpy  ( a->n«iro  .inlina); 
return  -2: 

) 


/*  dona  with  loop  */ 
flag  ■»  1 ; 
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l *  get  name  of  element  */ 
atrextract (inline , lina, 2, MAXCHAR) ; 

/*  save  element  name  */ 

a->nama  -  ( chat  *)  calloe  ( (unsigned)  atrlen(lina)  +  1 , sizeof (ohar ) ) ; 
atropy (e->name, lina) ; 

/*  aat  Daviaa  pointar  */ 

e->davice  "  dev (dp]; 

/*  aat  tha  aarial  number  */ 

a->aarial  ■  aarial; 

/*  aat  connection  typa  pointar  */ 

a->con .  typa_axt_in  dav  (dp)  ->type_ext_in? 
a->con . typa _ext_out  ■  dav (dp) ~>typa_axt_out ; 

/*  aat  numbar  of  alamanta  and  allocata  arrays  */ 

a->con.nbr_inputs  -  dev [dp] ->nbr_inputs ; 

a->aon . nbr_atataa  ■  dav (dp] ->nbr_atates ; 

e->con.nbr_implicit  •»  dav  [dp]  ->nbr  _impl  ic It ; 
e->con.nb.r_axt_in  -  dav  [dp]  ->nbr_axt_in; 

«->con  .  nbr_ext__out  «  dev  [dp] ->nbr__ext_out ; 
a->con . nbr_param  "  dav [dp] ->nbr_param; 

if  (dav [dp] ->nbr_inputa  >  0) 

( 

a->con.in  »  (double  *)  calloc ( (unsigned)  dav (dp) ->nbr_inputa  , 

sizeof (doubla) ) ; 

e->con . init_in  “  (double  *)  calloc ( (unaigned)  dav (dp) ->nbr_inputs 

aizaof (doubly) ) ; 


if  (dev  (dp)  ->nbr__implicit  >  0) 

o->con . jacob_in  “  (double  *)  calloc ( (unsigned)  dav ( dp ) ->nbr_inputa  * 

dev [dp] ->nbr_implicit  , 
aizaof (doubla) ) ; 


) 

if  (dav [dp] ->nbr_statos  >  0) 

( 

a->con.atata  ■  (double  *)  calloc ( (unsigned)  dev (dp) ->nbr_state», 

sizeof (double ) ) ; 

e->con.old  state  ■  (double  *)  calloc ( (unaigned)  dav|dp) ->nbr_states, 

sizeof (doubla) ) ; 

a->oon.init  state  ••  (double  *)  calloc (( uns i gnad)  dev  (dp)  ">nbr  state.?, 

sizeof (double) ) ; 
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) 

if  (dev (dp ] ->nbr  impl icit  >  0) 

( 

e->con .  implicit.  -  (double  *)  oalloo ( (unsigned)  dev  (dp) ->nbr_impliait , 

sizeof (double) ) ; 

e->con.  imp_  index  »  (int  *)  ualloc  ( (unsigned)  dev(dp)->nbr_implicit, 

sizeof (int) ) ; 

) 

if  (dev  ( dp) ->nbr_e:<t_in  >  0) 

( 

e->con ■ ext_in  *  (double  *)  cslloc ( (unsigned)  dev  (dp) ->nbr_ext__in, 

sizeof (double) ) ; 

e->con . init__ext  in  «  (double  *)  cslloc ( (unsigned)  dev (dp) ->nbr_ext_in, 

sizeof (double) ) ; 

) 


if  (dev (dp) ->nbr  ext_out  >  0) 

( 

e->e.on .  ext  out  "  (double  *) 


) 


aalloc  (  (unsigned)  dev [dp] ->nbr_exL_out, 
sizeof (double ) ) ; 


if  (dev  [ dp) ->nbr  parai"  >  0) 

•  -:>con  .  param  «•  (double  *)  calloc  (  (unsigned)  dev  ( dp) ->nbr  jpar  am, 

sizeof (double ) ) ; 

/*  read  in  parameters  */ 

/*  allocate  parameter  flag  array  (used  to  ensure  all  the  parameters 
are  specified)  *  / 

if  (dev (dp) ->nbr_param  >  0) 

param_flag  *=  (int  *)  cal loc (  (uns igned)  dev (dp) ->nbrjparam, sizeof (int) ) 

/*  ensure  param_flag  is  initialized  to  zero  along  with  parameters  */ 

for  (i  <*  0  ;  i  <  dev  ( dp  ] ->nbr_p«ram  ;  i++  ) 

«->con . param ( i )  =  param_f lag ( i ]  «  0; 

flag  *■  0 ; 

while  (flag  —  0) 

( 


strm->line_nbr  +“  1; 

if  (fgets (inline,  MAXCHAR,  in)  —  NULL) 
return  2; 

/*  strip  inline  of  leading  and  trailing  blanks  */ 
strstrip(inline) : 

/*  if  comment  or  blank  line,  read  in  another  line 
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if  (inline (0]  —  NULL  ||  inline(O)  —  |i  inline(O)  «  * #'  > 

continue ; 

/*  stop  if  end  statement  */ 

aictouc (inline, command) ; 
strstrip (command) ; 

if  (strcmp (command, "END" )  0)  /*  NOTE  t  case  insensitive  */ 

( 

flag  ■«  1; 
continue; 

> 

/*  check  param_name (]  to  find  out  which  parameter  should  be  read  in  */ 

atrextract (inline, command,  1 ,  MAXCHAR)  ; 

for  (i  «  0  ;  i  <  dev(dp] ->nbr__param  && 

strcmp (command, dev (dp] ->param_name | i] )  1“  0  ;  i++)  ; 

/*  if  did  not  find  parameter,  set  ant-  »  1  (invalid  data  read  in)  */ 

if  (i  “»  dev (dp) ->nbr_param) 

( 

ans  «  1 ; 

continue; 

) 

/*  get  parameter  value  */ 

atrextract  (inline,  command,  2  ,  MAXCHAF.)  ; 

Stof a (command  ,  flota  ,  Sncnt  ,  1); 

if  (ncnt  =»  1) 

( 

e->con . param ( i ]  =  flota(O); 
par am_f lag ( i ]  “  1; 

) 

else 

ans  «  1 ;  /*  invalid  data  read  in  */ 


/*  check  all  the  parameter  flags  */ 

for  (i  «  0  ;  i  <  dev ( dp) ->nbr_param  ;  i++) 
if  (param_f lag ( i)  «»  0) 

( 

/*  found  a  parameter  that  wasn' t  initialired  */ 
ans  *=  -1;  /*  supplied  default  value  */ 

) 
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return  ana; 


) 
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/ *  read_network . c  * / 

/*  Norbart  H.  Doerry 

6  Dacambar  1988 

This  file  contains  the  code  for  reading  the  network  oonnections 
between  the  various  elements.  The  form  for  the  netork  description 
is 

NODE  NODE_NAME 

[r]t(n] :SUB_NAME  =  [val]  =  ELM1  -.NAME  -  ELM2  iNAME  -  ELM3  :  NAME  etc. 

II  II 

\ll/  Ml/ 

\/  \/ 

END 


NODE_NAME  is  the  name  of  the  node 

( r ]  is  an  optional  character  'r'  to  make  the  subnode  a  reference 
subnode . 

t  is  either  a  ' v'  for  voltage  law  node  or  an  'i'  for  a  current  law  node 

(n)  is  the  number  of  variables  to  be  equated  beginning  with  the  specified 
one.  (usually  3  for  three  phase)  If  omitted,  assumed  equal  to  1. 

SUB_NAME  is  the  name  of  the  subnode 

[val]  For  a  voltage  subnode,  the  program  tries  to  convert  the  first 

entry  into  a  number.  If  successful,  the  value  becomes  the  initial 
value  if  not  a  reference  node,  and  the  actual  value  if  the  node 
is  a  reference  node. 

ELM1  is  the  first  element  name  being  connected 

NAME  is  the  name  of  the  variable  being  connected 


Element  names  can  not  begin  with  a  numeral  or  a  punctuation  sign.  Elements 
should  not  have  colons  or  equal  signs  ir  their  name. 

****  Modified  17  April  1989  ***** 

Fixed  the  nbr_c  bug.  -nhd 


*/ 

♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry. h" 

♦define  DEBUG  0 

read_network  (strm,  node,-e,  nelm,  errflag) 
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STREAM_PTR  *strm; 

NODE  *node; 

ELEMENT  **«; 
int  nelm; 

int  *errflag;  /*  set  to  one  if  detect  a  fatal  error  */ 

{ 

char  inline (MAXCHAR) , line (MAXCHAR] , *sline; 

FILE  *in; 

int  i, ans, flag; 

char  *calloc(); 

SUBNODE  * *s_node,  *e_node ; 

NODE  *new_node; 

in  *  strm->in; 

/*  initialize  s_node  */ 

s_node  =  (SUBNODE  **)  calloc ( 1 , si zeof (SUBNODE  *)); 

*s_node  =  (SUBNODE  *)  calloc ( 1 ,  sizeof (SUBNODE)  )  ; 

( *s_node) ->nbr_connect  “  0; 

( *s_node| ->last  =  NULL;  /*  indicator  that  this  is  the  first  one  */ 

/*  get  first  line  */ 

ans  •>  0;  /*  flag  for  all  loaded  normally  */ 

while  (1) 

{ 

atrm->line_nbr  +«•  1; 

if  (fgets (inline,  MAXCHAR, in)  ==  NULL) 
return  2; 

/*  strip  inline  of  leading  and  trailing  blanks,  etc  */ 
strstrip(inline)  ; 

/*  if  comment  or  blank  line,  read  in  next  line  */ 

if  (inline [0]  ==NULL  II  inline [0]  ==  '  ! '  ||  inline (0)  -=  '  *' ) 

continue ; 

/*  see  if  node  */ 

if  (strncmpa (inline, "NODE", 3)  !=  0) 

( 

/*  if  not,  pass  the  offending  line  back  to  the  main  routine  */ 

node->name  =  calloc (strlen (inline )  +  1  ,  sizeof (char ))  ; 

strcpy (node->name, inline) ; 

return  -1;  /*  not  a  NODE  command  */ 

) 
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/*  Have  a  node,  lata  gat  its  name  */ 

at rap lit (inline, lino, 1, MAXCHAR) ; 
atrstrip ( line )  ; 

for  (i  -  0  ;  linefi]  '  '  &&  line(i]  !«  '\t'  &&  line(i]  I-  NULL  ;  i++); 
line ( i]  -  NULL; 

node->name  «  calloc (strlen (line)  +  1,  sizeof (char ) ) ; 

strcpy (node->name  ,  line)  ; 

break; 

) 

/*  get  the  node  information  */ 

while  (1) 

< 

strm->line_nbr  +=  1; 

if  (fgets_multiple  (Saline,  MAXCHAR,  in)  >*«=  NULL) 
return  2; 

/*  atrip  aline  of  leading  and  trailing  blanks,  etc  */ 
atrstrip (aline) ; 

/*  if  comment  or  blank  line,  read  in  next  line  */ 

if  (aline [ 0 ]  ==  NULL  |l  slinefO]  =«  '!'  ||  slinefO]  ==  '#') 

continue; 

/*  see  if  end  statement  */ 

if  (atrcmpa (a  line , "END" )  ==  0) 
break ; 

/*  read  the  sub  nodes  in  */ 

if  (flag  =  read_aub_node (at rm, s line , s_node, e , nelm, 1 , err flag)  !=  0) 
f 

ana  =  1; 

*errf lag  =  1 ; 

if  (flag  ==  -3  | |  flag  ==  -4)  return  flag;  /*  out  of  memory  error  */ 
continue ; 

} 

/*  free  aline  */ 
free (aline ) ; 
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/*  count  the  number  of  aubnodea  */ 
e_node  »  *s_node; 

for  (i  *  0  ;  e_node->last  ! ■  NULL  ;  i++  ,  e_node  ■  e_node->laat) 
node->nbr_aubnode  *  i; 

/*  allocate  array  */ 

node->subnode  »  (SUBNODE  **)  calloc  (  i  ,sizeof  (SUBNODE  *)); 

if  (node->subnode  ==  NULL) 
return  -3; 

/*  fill  the  array  */ 

for  (  ;  i  >  0  ;  i-~) 

( 

node->subnode ( i — 1 ]  =  ( *s_node) ->last; 

*s  node  =  (*s  node)->last; 

) 

return  ans; 

) 

read_aub_node (strm, inlines, s_node, e, nelm, pe, errflag) 
char  ‘inlinea; 

STREAM_PTR  *atrm; 

SUBNODE  **s_node; 

ELEMENT  **e; 
int  nelm; 

int  *errflag;  /*  if  equal  to  one,  indicates  fatal  error  */ 
int  pe;  /*  print  error  flag  ;  1  yea  0  no  */ 

< 

char  ‘inline; 

int  nbr_anode, i , j , k, 1, kk, nbr_c, ncnt; 
char  *make_atr(); 

char  line (MAXCHAR) , name (MAXCHAR] ; 
float  f lota  12); 

SUBNODE  *t_node;  /*  tempory  aub  node  */ 
char  *make_str ( ) ; 
double  val; 

inline  «  make_str (inlines) ;  /*  copy  inlines  into  inline  */ 

nbr  c  «  count_char ( inline ,'■')  ;  /*  count  equal  signs  */ 

if  (DEBUG)  printf ("is  II  nbr_c  ■*  %d\n", inlines, nbr_c) ; 

if  (nbr_c  <  1)  /*  didn't  get  an  equal  sign  */ 

I 

if  (pel 
I 
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printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr ,  strm->£ilename)  ; 

printfC  ***  not  found  in  node  description  ***\n  %s\n", 

inlines) ; 

) 

*errflag  «=  1; 
return  1; 

> 

( *s_node) ->nbr_connect  ■>  nbr_c; 

/*  find  type  of  subnode  and  number  of  subcodes  */ 
strstrip (inline) ; 

/*  see  if  the  subnode  is  a  reference  subnode  */ 

if  (inline [0]  ==  'r'  ||  inline[0]  «=  ' R' ) 

( 

inline (0)  -  '  ' ; 

( *s_node) ->ref_f lag  =  1; 
strstrip (inline) ; 

) 

else 

( *s_node) ->ref_flag  »  0; 

/*  find  out  if  a  voltage  or  current  subnode  */ 

if  (inline[0]  **=  '  v'  ||  inline[0]  'V') 

( 

inline (0]  »  '  /*  set  to  space  */ 

( *s_node) ->type  -  0; 

) 

else  if  (inline  (0]  ■“  '  i'  ||  inline  [0)  ■>•  'I') 

( 

inline [0]  =  '  ' ;  /*  set  to  space  */ 

( *s_node ) ->type  «  1; 

) 

else 

( 

if  (pe) 

( 

printfC  ***  Error  Line  %d  in  file  %#\n", 
strm->line_nbr , atrm->f ilename) ; 

printfC  ***  Improper  SUBNODE  TYPE  in  node  description  ***\n") 
printfC  <.s\n",  inlines)  ; 

) 

*etrf lag  *>  1 ; 
return  1; 

) 

l*  find  number  of  subnodes  */ 
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Stofa (inline, flota, Sncnt, 1) ; 

nbr  anode  ®  (ncnt  •*>  0)  ?  1  s  £lota[0]; 


/*  allocate  arrays  */ 


(*S 

node) ->name 

a 

(char 

*> 

calloc (MAXCHAR,  sizeof  (char)); 

(*S 

node) ->element 

sn 

(char 

*  ★  ) 

calloc (nbr_c, sizeof 

(char 

*>); 

(*S 

node) ->variable 

» 

(char 

*  ★  ) 

calloc (nbr_c, sizeof 

(char 

*)); 

(*s 

node) ->elm_ptr 

- 

(int 

*) 

calloc (nbr_c, sizeof 

(int 

>>/ 

( *a 

node) ->var_ptr 

K 

(int 

*) 

calloc (nbr_c, sizeof 

(int 

)); 

if 

((*s  node) ->element 

—  NULL  I 

!  (*s  node) ->variable 

NULL 

(*s  node) ->elm_ptr 

—  NULL  | 

|  <*s_node) ->var_ptr 

mm 

NULL 

(*s  node)->name 

-- 

NULL) 

{ 

if  (pe) 
{ 


printf  ( "  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , atrm->f ilename) ; 
printf  ("  ***  Out  of  MEM0RY\n"); 

> 

*errflag  «  1; 
return  -3; 


/*  get  rid  of  number  */ 

for  (i  -  0  ;  inline ( i J  !-  NULL  &&  inline(i]  !-  ?  i++> 

inline [ i]  «  '  ' ; 

/*  ensure  got  to  a  color.  */ 

if  (inline (i]  !-  '  > 

< 

if  (pe) 

{ 

printf ("  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , atrm->f ilename) ; 

printf  ("  ***  in  node  description  ***\n"); 

printf  ("  %#\n" , inline#) ; 

) 

•errflag  “  1; 
return  1; 


inline  (  i )  ■>  '  '  ; 

strstrip(inline) ;  /*  remove  leading  blanks  */ 

/*  read  in  name  of  subnode  */ 
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for  <i  -  0  ;  inline  {1}  !-  NULL  &&  inline(i)  !-  ;  i++> 

( 

line(i)  «■  inline(i]; 
inline [i]  -  ' 

) 

line [ i]  -  NULL; 

if  (inline[i]  «*»  '■')  inline(i]  “  ' 
stratrip (line) ; 

/ *  ignore  everything  after  firat  apace  or  tab  and  before  «  */ 

for  (i  -  0  ;  line[i]  !-  '  '  &&  line[ij  !-  ' \t'  &&  line(i]  !-  NULL  ;  i++) 
(*s_node)  ->name  (i)  ■  line[i]; 

(*a_node) ->name [i]  «•  NULL; 

stratrip (inline) ; 

/*  start  reading  in  the  elements  */ 

for  (i  “  0  ,  j  «  0  ;  i  <  nbr_c  ;  i++  ,  j  +  +  ) 

( 

/*  get  the  element  name  */ 

for  (k  ■  0  ;  inline [j]  !■  &&  inline [j)  !■>  NULL  64  inline (j)  !  ■*  'r' 

j++, k++) 

( 

line[k]  -  inline [j]; 

) 

line [k]  -  NULL; 
stratrip (line) ; 

/*  see  if  it  is  possibly  an  ititial  value  */ 

if  (i  “«*  0  44  ( *s_node) ->type  ■■  0) 

( 

Stoda (line, 4val, Sncnt,  1)  ; 

if  (ncnt  "1)  /*  successful  conversion  */ 

( 

( *s_node) ->init_volt  ■  val; 
i  —  ; 

nbr_c — ;  /*  decrement  number  of  connections  by  one  */ 

( *s_node) ->nbr_connect  ■  nbr_c;  /*  do  it  for  real  */ 
continue; 

) 

) 


/*  allocate  the  string  */  “ 

(*s  node) ->element [ i]  «  (char  *)  calloc (strlen ( line )  +  1 , si zeof (char ) ) 
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atrcpy  < (*a_node) ->element (i] , line) ; 

/*  get  the  variable  name  */ 

if  (inline ( j)  !«  ' !' ) 

( 

*errflag  •»  1; 
if  (pe) 

( 

printf("  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , strm->f ilename) ; 

printf("  ***  Miaaing  variable  name  for  element  %s  ***\n  %s\n 
(*a_node) ->element (i) ,  inlinea) ; 

) 

( *a_node) -> variable  ( i.l  “  NULL; 
continue; 

) 

j++;  /*  increment  pointer  to  character  in  inline  paat  colon  */ 


/*  copy  next  element/variable  into  line  */ 

for  (k  ■  0  ;  inline  (j)  !«  '  «■'  &&  inline  [j]  ! «  NULL;  j++,  k++) 

( 

line[k]  “  inline (j); 

) 

line [ k]  -  NULL; 
atratrip ( line ) ; 

/*  allocate  the  atring  */ 

(*a_node) ->variable [i]  -  (char  *)  calloc (atrlen (line)  +  1, sizeof (char) ) 

/*  aee  if  out  of  memory  */ 

if  ( (*a_rode) ->variable (i]  NULL) 

( 

‘errflag  «  1; 
if  (pe) 

< 

printf("  ***  Error  Line  %d  in  file  %a\n", 
strm->line_nbr , atrm->f ilename) ; 
printf ( "  ***  Out  of  MEMORY  ***\n") ; 

) 

return  -3; 

) 

/ *  copy  the  atring  */ 

atrcpy ( (*a_node) ->variable ( i) , line) ; 
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/*  find  the  elements  in  the  arrays  and  pass  pointers  etc.  */ 


/*  find  out  which  element  we  belong  to  */ 

for  (1  ■  0  ;  1  <  nelm  &&  strcmp (e [1] ->name, (*s_node) ->element (i] )  !«  0 

1++) 

if  (DEBUG)  printf("%s  ||  %s\n", e [ 1) ->name, (*s_node) ->element [ i] ) ; 

/*  see  if  the  element  name  wasn't  found  */ 

if  (1  <■«  nelm) 

{ 

*errflag  “  1; 
if  (pe) 

( 

printfC  ***  Error  Line  %d  in  file  %s\n", 
strm->line_nbr , strm->f ilename)  ; 
printfC  ***  Can  not  recognize  ELEMENT  %s  ***\n", 

(*s_node) ->element (i) )  ; 

) 

continue; 

) 

/*  assign  pointer  */ 

(*s_node)  ->elm_ptr  [i]  «=  1; 

/»  turn  flag  on  for  element  */ 
e  [  1 )  ->f  lag  «=  1 ; 

/*  find  the  variable  name  */ 


/*  look  for  input  variables  */ 

for  (k  =  0  ;  1  <  nelm  &&  k  <  e ( 1 3 ->device->nbr_inputs  && 

strcmp ( ( *s_node) -> variable { i ] , e [ 1) ->device->input_name [k] )  ! “  0; 

k+  +  ) 

if  (DEBUG)  printfC***  %s  ||  %s\n",  (*s_node) ->variable  ( i)  , 
e  [1) ->devic#->input_name (k] ) ; 

if  (  1  <  nelm  &&  k  <  e [ 1 ) ->device->nbr_inputs ) 

( 

(*s_node) ->var_ptr (i]  *  k; 
continue; 


if  (pe) 
( 
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printf("  ***  Error  Line  %d  in  file  %a\n", 
atrm->line  nbr,  strm->f ilename) ; 


printf ( 


} 


***  Variable  %a  not  recognized  for  element  %a  ***\n", 
(*a  node) ->variable [i] , (*s  node) ->element [i] ) ; 


*errflag  »  1; 

( *s_node) ->var_ptr ( i]  «•  0; 


/*  equate  follow  on  variables  with  new  sub_nodes  */ 

atrcpy (name, (*a_node) ->name) ; 

for  (i  =  1  ;  i  <  nbrsnode  ;  i++) 

{ 


/*  allocate  new  arrays  */ 

t_node  =  (SUBNODE  *)  calloc (1 , aizeof  (SUBNODE) ) ; 
if  (t_node  NULL)  return  -3; 

t  node->laat  *  *a  node; 


t_node->nbr_connect  *  (*a_node) ->nbr_conneot; 
/*  allocate  arrays  */ 


t  node->name 


(char  *)  calloc (MAXCHAR, aizeof (char) ) ; 


t_node->elm_ptr  -  (int  *)  calloc (t_node->nbr_connect , 

aizeof (int) ) ; 

t_node->var_ptr  -  (int  *)  calloc (t_node->nbr_connect, 

aizeof (int) ) ; 

t_node->element  ■=  (char  **)  calloc (t_node->nbr_connect, 

aizeof (char  * ) ) ; 

t_node->variable«  (char  **)  calloc (t_node->nbr_connect , 

aizeof  (char  * ) ) ; 


/*  aee  if  out  of  memory  problema  */ 

if  (t_node->elm_ptr  ““  NULL  I  I  t_node->var_ptr  ““  NULL  I  | 
t_node->element  ““  NULL  I  I 

t_node->var iable  “**  NULL  | I  t_node->name  NULL)  return  -3; 

/*  set  reference  flag  to  zero  */ 
t_node->ref _f lag  *>  0; 

/*  copy  data  */ 
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t_node->type  **  (*s_node)  ->type; 
strcpy (line, name) ; 

/*  append  an  underscore  followed  by  a  'b'  or  'c'  etc  to  the  aubnode 
name  * / 

sprintf (t_node->name,  "%s_%c", line,  ’  a'  +  i)  ; 

for  (1=0;  1  <  t_node->nbr_connect  ;  1++) 

< 

t_node->element (1)  ■  make_str ( (*a_node) ->element [1] ) ; 

t_node->elm_ptr [1]  =  (*s_node) ->elm_ptr [1] ; 

t__node->var_ptr  [1]  «  (*s_node)  ->var_ptr  [1]  +  1; 

/*  see  if  too  many  points  */ 

if  (t_node->var_ptr { 1 ]  >= 

e [t_node->elm_ptr [1] ] ->device->nbr_inputs) 
return  -4; 

t*  copy  the  variable  name  */ 

k  “  t_node->var_ptr ( 1] ; 
kk  «*  t_node->elmjptr  [  1)  ; 

t_node->variable [ 1]  ■  make_str ( (e (kk) ) ->device->input_name [ k) ) ; 


) 

/*  update  s_node  */ 
*s  node  ««  t  node; 


) 


/*  allocate  new  arrays  */ 

t_node  »  (SUBNODE  *)  calloc (1 , aiieof (SUBNODE) ) ; 
if  (t_node  ■■  NULL)  return  -3; 

t_node->last  -  *a_node; 

*s_node  •»  t_node; 

/*  free  inline  */ 

free (inline) ; 

return  0; 


390 


road  network. c 


/*  count_char  returns  the  number  of  times  a  character  occurs  in  a  string  */ 
count_char (s,  c) 
char  *s,c; 

{ 

int  i, j; 

for  (i  -  j  «  0  ;  s{i)  !=  NOLL  ;  i++) 
if  (s  [i]  ==  c)  j++; 
return  j; 

} 

/*  make_str  allocates  a  string  array  and  copies  the  argument  passed  to  it  */ 
char  *make_str (s) 
char  *s; 

{ 

char  *calloc(); 
char  *ans; 

ans  =  calloc (strlen  (s)  +  1  ,  sizeof (char )) ; 

if  (ans  ■>**  NULL)  return  NOLL;  /*  out  of  memory  error  */ 

strcpy (ans, s ) ; 

return  ans; 

) 


typedef  struct  String 

( 

char  *s; 

struct  String  ‘next; 

) 

STRING_; 

f gets_multiple (outline, max, in) 
char  “outline; 
int  max; 

FILE  ‘in; 

( 

char  ‘out; 

STRING_  atrt, *ptr; 
char  ‘inline; 
int  flag, Ion; 

ptr  «  tstrt; 
ptr->next  =  NULL; 

inline  »  calloc ( (unsigned)  max  +  1  ,  sizeof  (char) ) ; 

flag  -  1; 

while (flag) 

( 
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/*  if  read  to  EOF,  send  back  EOF  */ 

if  (f  gets  (inline,  max,  in)  «■*  NOLL) 

< 

free ( inline ) ; 
return  NULL; 

) 


strstrip ( inline ) ; 

/*  see  if  its  a  comment  */ 

if  (inline (0)  ==  ' ! '  ||  inline(0]  -=  '#'  ||  inline[0 

continue; 

/*  see  if  a  continuation  marker  is  present  */ 
flag  =  0; 

if  (inline  (strlen  (inline)  -  1]  «*«  ' \V  ) 

( 

inline [strlen (inline)  -  1]  »  NULL; 
flag  =  1; 

) 

if  (strcmp (inline  +  strlen (inline)  -  3  ,  "...")  “«*  0) 

( 

inline (strlen  (inline)  -  3]  “  NULL; 
flag  »  1; 

) 

/*  store  the  string  and  allocate  a  new  array  */ 
ptr->s  =  make_str (inline)  ; 

ptr->next  »  (STRING_  *)  cailoc (  (unsigned)  1  ,  sizeof 
ptr  “  ptr->next; 
ptr->next  «  NULL; 


for  (ptr  *  Sstrt,len  «  1  ;  ptr->next  !»•  NULL  ;  ptr  •>  p' r 
len  +«  strlen (ptr->s)  +  1; 

‘outline  *  (char  *)  cailoc ( (unsigned) len,  sizeof  (char)); 
' ‘outline ) (0)  -  NULL; 

for  (ptr  =  4strt  ;  ptr->next  !»  NULL  ;  ptr  =  ptr->next) 

( 

street  (‘outline,  "  "); 
streat  (*outline,p‘tr->s)  ; 


)  «  NULL) 


(STRING  )) 


>next) 


392 


road  network. c 


free (inline)  ; 
return  (^outline)  [0] ; 


sepsip . c 


/*  sepsip. c  */ 

/*  11  November  1988 

*  *  *  *  version  1.0  27  March  1989  **** 

Norbert  H.  Doerry 

Shiboard  Electrical  Plant  Simulation  Program 


****  modified  9  April  1989  **** 

Fixed  bug  that  caused  utility  line  of  menu  to  be  printed  twice 
****  modified  10  April  1989  **** 

Added  ability  to  enter  stdout  as  a  filename  for  writing  files 
from  the  get__f  ilename  function 


*/ 


♦include  <stdio.h> 

♦include  "doerry. h" 

♦include  "penner.h" 

♦define  CLEARSCREEN  system ( "clear " ) 

♦define  VERSION  1.0 

♦define  VERSION_DATE  "27  March  1989" 

♦define  DIR  "Is  -al" 

♦define  CMD  "/mit/nhdoerry/dif feq/thesis/sepsip_ util" 

♦define  DEBUG  0 

♦define  WRITE_F ILE  1 
♦define  READ  FILE  0 


main  (argc, argv) 
int  argc; 
char  **argv; 

( 

FILE  *in; 

extern  char  *device_f ile [ ] ; 
extern  int  nbr_device_f ile [ ] ; 
extern  FUNCTION_PTR  dev_fnctn [ ] ? 
extern  char  *device_name [ ] ; 

STREAM_PTR  *strm; 

DEVICE  “dev; 

ELEMENT  **e; 

QUEUE  “queue; 
char  *calloc ( ) ; 

char  inline  JMAXCHAR]  ,  infile [MAXCHAR] ; 
int  i , k , typ, ndev, nelm,  nqueue ; 

NODE  *  *nn ; 
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int  nnode, err! lag; 

SIMULATE  simulate ; 

XTABLE  **xtab; 

ITABLE  **itab; 
int  nxtab,nitab; 

PRINT_VAR  pv ; 
int  aim_flag; 

/*  print  Header  */ 

printf ("\n\n  WELCOME  TO  SEPSIP\n\n" ) ; 

print! ( "  Version  %5.2f  :  Varaion  Data  %a\n\nM , VERSION, VERSIONJ3ATE) 

/*  initialize  arrflag  to  0  (no  arrors)  */ 
arrflag  «  0; 

/*  allocate  the  storage  for  the  device  descriptions  */ 

for  (i  -  ndev  -  0  ;  i  <  NBR_DEV_FILES  ;  i++) 
ndev  +-  nbr_device_file t i ] ; 

dev-  (DEVICE  **)  calloc ( (unsigned)  ndev, sizeof (DEVICE  *)); 

for  (i  ■  0  ?  i  <  ndev  ;  i++) 

dev  ( i ]  -  (DEVICE  *)  ca.lloc  (I,  sizeof  (DEVICE)  )  ; 


/*  read  in  the  device  descriptions  */ 

for  (i  =  typ  -  0  ;  i  <  NBR__DEV_FILES  ;  i+  +  ) 

( 

if  (  (in  -  fopen (device_f ile ( i]  ,  "r" ) )  —  NULL) 

( 

err flag  -  1; 

printf ("  ***  Unable  to  Open  Device  File  :  %s\n" , device_f ile ( i ) ) ; 
continue; 

) 

k  =  load_device (dev  +  typ  ,  nbr_device_f i le [ i )  ,  in  ,  typ  , 

dev_fnctn  ,  device_name  ,  ndev) ; 

typ  +=  nbr_device_f ile ( i] ; 

) 

/*  exit  program  if  any  of  the  device  files  are  not  present  */ 

if  (errflag) 

( 

printf ("  ***  Program  Terminated\n\n\n" ) ; 
exit  ( )  ; 


/*  see  if  there  is  a  filename  specified  in  argv  */ 
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if  (argc  >  1) 

{ 

strcpy (infile, argv(l]  )  ; 
atrcpy (inline,  "1  "); 
strcat (inline, argv [ 1] ) ; 

) 

else 

infile [0]  -  NULL; 


if  (infile [0]  !=  NULL) 

errflag  “  load_f ile  (infile,  fie,  finelm,  dev,  ndev,  inline,  finn,  fin  iocls, 

(queue, finqueue, (simulate, fixtab, finxtab, 

& itab, finitab,  fipv) ; 

else 

errflag  ■>  1; 

/*  should  have  all  the  devices  and  elements  read  in  */ 
sim_flag  =  0;  /*  simulation  has  not  occurred  */ 

while  (1 ) 

{ 


printf("\n\n  SEPSIP  Commands  :  \n"); 
if  (errflag  *>■=  0  &&  sim_flag  •-  1) 

( 

printf ("  c  Continue  Simulation\n") ; 

) 

printf ("  d  Display  Data\n"); 

if  (errflag  0) 

( 

printf  ("  e  Edit  Simulation  Parametera\n" ) ; 

) 

printf("  f  File  OptionsNn"); 

printf("  1  Load  New  Input  File\n"); 

printf ( "  q  Quit\n” ); 

if  (errflag  0) 

( 

printf  ("  s  Conduct  Simulation\n" ) ; 

) 

printf  ("  u  Utilities'^")  ; 

printf ("  Enter  Command  s  "); 

gets ( inline ) ; 
at r st r ip ( inline ) ; 

if  (inline(0)  »»  '  c'  fit  errflag  ■>«  0  ((  *im_flag  ■■  1) 

run  simulat ion(inline,e,nelm, nn,nnode, queue , n queue , xtab , nxt ab, 
itab, nitab, fipv, (simulate,  1 ) ; 

else  if  (inline[0]  •»*  'd') 

display_dat a (inline , dev, ndev, e, nelm, nn, nnode , queue, 
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nqueue, errflag, atdout) ; 

else  if  (inline  [0]  “*=  '  e'  &&  errflag  ==  0) 

edit_simulate (e, nelm,  nn, nnode, (simulate, Spv, inline) ; 

else  if  (inline (0)  *=  ' f ' ) 

file_options (inline, e, nelm, nn, nnode, (queue, Enqueue, (simulate, 

6pv, xtab, nxtab, itab, nitab, errf lag) ; 

else  if  (inline (0]  ==  '1') 

{ 

errflag  =  load_file (infile,  (e,  inelm,  dev,  ndev,  inline, inn, (nnode, 

iqueue, inqueue, isimulate, (xtab, inxtab, 
titab, initab, ipv) ; 

sim_flag  =  0;  /*  reset  the  simulation  flag  */ 

) 

else  if  (inline (0]  ==  ' q'  ||  inline  [0]  ==  'Q') 
exit  ( )  ; 

else  if  (inline[0]  's'  i (  errflag  “  0) 

( 

run_simulation ( inline, e, nelm,  nn, nnode, queue, nqueue, xtab, nxtab, 
itab, nitab,  ipv, isimulate,  0)  ; 
sim_flag  >■  1;  /*  set  the  simulation  flag  */ 

) 

else  if  (inline  [0]  «■=  'u') 
utilities (CMD , inline) ; 


) 

) 

int  load_file (infile,  ee,  nelm,  dev,  ndev, inline,  nn, nnode,  q, nq, simulate, 
xtab, nxtab, itab, nitab, pv) 

char  ‘infile; 

ELEMENT  “*ee; 
int  ‘nelm; 

DEVICE  **dev; 
int  ndev; 
char  ‘inline; 

NODE  *  *  *nn ; 
int  ‘nnode; 

QUEUE  “  *  q ; 
int  *nq; 

SIMULATE  ‘simulate; 

XTABLE  ‘“xtab; 
int  ‘nxtab; 

ITABLE  “‘itab; 
int  ‘nitab; 

PRINTJVAF  *pv; 

( 

STREAM  FTP  »strm; 
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FILE  *in; 

char  filename [MAXCHAR] ; 
int  i, errflag, flag; 

flag  ■=  0; 

strsplit (inline, filename, 1,  MAXCHAR) ;  /*  grab  the  filename  if  specified  */ 

errf lag  =  1;  /*  ensure  loop  occurs  at  least  once  */ 
while  (errflag  !=  0) 

( 

printf  ( "\ri\n"  )  ; 

errflag  ■=  0;  /*  reinitialize  errflag  */ 

if  (filename (0]  !=  NULL) 

( 

in  =  fopen( filename, "r") ; 
i  =  (in  ==  NULL)  ? 

get_filename (infile, fiin, READ_FILE, "SEPSIP  INPUT", 0)  :  0; 

t 

else 

i  »  get_f ilename (inf ile , &in, READ_FILE, "SEPSIP  INPUT", 0); 


if  (i  !=*  0) 

{ 

return  flag;  /*  one  if  an  error  ,  zero  otherwise  */ 

) 

filename (0)  -  NULL;  /*  ensure  that  second  time  through,  a  file  name 

is  prompted  for  */ 

/*  initialize  starting  structures  */ 

strm  -  (STREAM_PTR  *)  calloc (1, sizeof (STREAM_PTR) ) ; 
strm->in  «=  in; 

strm->last  °=  NULL;  /*  indicator  that  this  is  the  first  stream  */ 
strcpy ( st rm-> f i lename , infile) ; 
strm->line  nbr  «  0; 


/*  set  defaults  */ 
aet_defaults (simulate) ; 
pv->ne:-:t  -  NULL; 

i  “  load_e lament (4strm, ee, nelm, dev,  ndev,  4errf lag)  ; 
if  (i  !“  0)  /*  hit  EOF  before  all  data  was  read  in  */ 

( 

flag  errflag  «■  1; 
fclose (atrm->in) ; 
continue ; 
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else 

flag  =  (errflag  !=  0)  7  1:0; 

i  ■  load_network (istrm, nn, nnode,  *ee,  *nelm,  &errf lag) ; 
if  (i  !■=  0) 

{ 

flag  =  errflag  =  1; 
f  close  (stmi->in)  ; 
continue; 

} 

else 

flag  ■=  (errflag  !■=  0)  7  1  :  0  ; 
atrcpy (inline, (*nn) [ *nnode] ->name ) ; 

/*  see  if  elements  and  nodes  multiply  defined  */ 
check^name  ( *nn,  *nnode ,  *ee ,  *nelm,&errflag)  ; 

i  »  load_initial (istrm, *ee, *nelm, *nn, *nnode, inline, &errflag, 0) ; 
if  <i  <“  0) 

( 

flag  =  errflag  *  1; 
f close (atrm->in) ; 
continue ; 

) 

else 

flag  =  (errflag  !*0)?1;0; 

load_simulation (Sstrm, *ee , *nelm, *nn, *nnode, q, nq, simulate, pv, & err flag) ; 
flag  ■  (errflag  !  *■  0)  ?  1  :  0  ; 

if  (DEBUG) 


} 


for  (i  >*  0  ;  i  <  *nq  ;  i++) 

printf ("elm  -  %d  ,  var  «  %d  ,  val  ■  %f  ,  time  ■  %f\n", (*q) (i)->elm, 
(*q)  1 i ] ->var ,  (*q)  ( i ) ->value,  (*q)  (i) ->time) ; 


setup_simulation ( *nn, *nnode, *ee , *nelm, ‘simulate , xtab, nxtab, 
itab, nitab, ierrf lag) ; 
flag  ■  (errflag  !>•  0)  ?  1  ;  0  ; 


if  (DEBUG) 


( 


) 


) 


printf <"******* ****\n") ; 
for  ( i  •*  0  ;  i  <  *nq  ;  i++) 

printf  ("elm  •*  * d  ,  var  »  *d  ,  val  »  * f  ,  time  »  t  f \n" , 
( *q)  (i)->var,  ( *q)  (i]->value,  (*q)  (i]->time) ; 


<  * q )  1 i ) ->«lm, 


return  flag; 


399 


sepsip .  c 


> 

get_filename (filename, stream, type, string, flag) 
char  ‘filename;  /*  default  name  of  file  */ 

FILE  “stream;  /*  io  stream  */ 

int  type;  /*  =  0  for  read;  ■*  1  for  write  */ 

char  ‘string;  /‘  string  to  prompt  user  with  */ 

int  flag;  /*  try  to  load  file  immediately  if  non  zero  */ 

{ 

char  inline (MAXCHAR] , direction ( 2 ) , command (15) ; 

direction (0)  -  (type  «* «  WRITE_FILE)  ?  ' w'  :  '  r' ; 
direction [1]  -  NULL; 

if  (type  READ_FILE)  strcpy (command, "Read  From"); 
else  strcpy (command, "Write  To"); 

strstrip (filename) ; 

while(flag  *=0  ||  filename(0]  NULL) 

( 

if  (filename [0]  -=  NULL) 

printf("  Enter  %s  file  name  :  ",  string); 
else 

printf ( "  Enter  %s  file  name  (Default  %s)  :  ",  string, filename) 

gets ( inline ) ; 
strstrip (inline) ; 

if  (inline [0]  «=  'q'  S&  inline {1}  “  NULL) 
return  -1; 

if  ( inline  1 0 ]  —  NULL) 
break; 

if  (inline ( 0 ]  —  '  ?'  ) 
system(DIR) ; 

else 

( 

strcpy (filename,  inline)  ; 
break ; 

) 

) 

/*  see  if  still  NULL  filename  */ 

if  (filename (0)  —  NULL) 

( 

if  (type) 

( 

‘stream  *  stdout; 
return  0; 

! 

else  return  -3 ; 
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) 

/*  see  if  write  file  and  filename  is  stdout  */ 

if  (strcmp (filename, "stdout")  "■>  0  &&  type) 

( 

•stream  “  stdout; 
return  0; 

) 


/*  try  to  open  the  file  */ 

while  ( (‘stream  »  fopen (filename, direction) )  NULL) 

< 

while  (1) 

( 

printf("  Cannot  %s  %s  :  Enter  %s  file  name  :  ", 
command, filename, string) ; 
gets (inline) ; 
strstrip (inline)  ; 

if  (inline [0]  —  '  q'  &&  inline (1)  —  NULL) 
return  -1; 

if  (inline [0]  —  NULL) 
break; 

if  ( inline ( 0 ]  —  ' ?' ) 

system (DIR) ; 
else 


strcpy ( filename , inline) ; 
break; 

) 

) 

) 

return  0; 

) 


diaplay_data ( inline , dev, ndev, e, nelm, nn, nnode , q, nq, err flag,  out ) 
char  ‘inline; 

DEVICE  “dev; 
int  ndev; 

ELEMENT  “e; 
int  nelm; 

NODE  “nn; 
int  nnode; 

QUEUE  “q; 
int  nq; 
int  errflag; 

FILE  ‘out; 

( 
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char  line [MAXCHAR] ,  cmd; 
int  flag; 

atrcpy(line,  inline)  ; 

line(O)  “  '  /*  atrip  off  firat  character  */ 

atrstrip  (line) ; 
cmd  ■»  line(0]; 


if  (cmd  !“  '  d1  &&  cmd  !■  'D'  &&  cmd  !“  'e'  &&  cmd  !“  'E'  t&  cmd  !«  'n') 
flag  «  1; 

elae 

flag  -  0; 


while  (1) 

( 

if  (flag) 

( 

printf ( "\n  DISPLAY  DATA\n") ; 


printf ( "  d 
printf ("  D 
if  (errflag  ■ 
( 

printf ( " 
printf (" 
printf ( " 

) 

printf ("  q 
printf ("  w 


Display  Device  Summary\n"); 
Display  Device  Data\n"); 

'  0) 

e  Display  Element  Summary\n") ; 
E  Display  Element  Data\n"); 
n  Display  Network  SummaryW); 

Quit\n" ) ; 

Write  Device  Data  File\n"); 


printf ("  Enter  Command  !  "); 
gets (line) ; 
strstrip(line) ; 
cmd  «  line [ 0] ; 


) 


if  (cmd  —  'd' ) 

device_summary (dev,  ndev,  stdout) ; 

elae  if  (cmd  »»  'D') 

diaplav_device (dev,  ndev,  line) ; 

else  if  (cmd  «»  'e'  &&  errflag  ■«  0) 
element_aummary (e , nelm,  out ,  line )  ; 

else  if  (cmd  --  'E'  &&  errflag  «■»  0) 
display_e lament (e, nelm, line , q,  nq) ; 

elae  if  (cmd  ' n'  it  errflag  ““  0) 
print_network (out, nn, nnode) ; 

else  if  (cmd  mm  ' q' ) 
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return; 

else  if  (cmd  *■“  ' w' ) 

dump_device (dev,ndev,  line)  ; 
else  flag  •  1; 

if  (flag  ”  0)  return; 


/*  use  utility  menu  driver  to  execute  program  */ 

/*  cmd  i.i  the  the  command  name  of  the  utility  menu  driving  program  */ 
/*  inline  is  the  string  input  from  the  user  */ 

utilities (cmd, inline) 
char  ‘inline, *cmd; 

( 

char  ‘command, ‘calloc ()  ; 

command  ■=  calloc (strlen  (inline)  +  strlen(cmd)  +  10, si zeof (char) ) ; 

strcpy (command,  cmd)  ; 

inline  (0]  <=  '  '; 

strstrip < inline) ; 
street (command, "  "); 
streat (command, inline ) ; 

system(command) ; 

) 
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/*  setup_simulation .c  */ 

/*  Norbert  H.  Doerry 

28  February  1989 

This  routine  sets  up  the  state  variable  list  for  conducting  the  simulation. 

The  variable  list  contains  the  following  variables: 

I  |  I  Node  Voltages  I 

|x|  “I  Variables  attached  to  Current  Nodes. **  | 

III  I 


**  All  the  variables  except  the  first  one  assigned  to  the 
current  node. 

These  variables  are  related  by  a  set  of  implicit  equations  of 
the  form: 

F  (|x!)  -  III  — >  0 

where  |I|  is  a  vector  of  'implicit  variables'  That  should  be 
driven  to  zero. 

Obviously,  the  order  of  |x|  should  be  the  same  as  the  order  of 

HI- 

At  a  Voltage  Node,  the  voltage  variables  attached  to  it  are  all 
set  equal  to  the  Node  Voltage.  The  Node  Voltage  is  the  variable 
that  is  allowed  to  vary. 

At  a  Current  Node,  The  first  variable  attached  to  it  is  set  equal 
to  the  negative  of  the  sum  of  the  remaining  variables.  If  there 
are  no  more  remaining  variables,  then  the  first  variable  is  set 
equal  to  zero.  The  remaining  variables  attached  to  the  current 
node  are  allowed  to  vary.  If  the  Current  subnode  is  the  reference 
subnode,  then  the  first  variable  is  kept  as  a  separate  variable. 


Here  are  the  definitions  of  the  XTABLE  and  ITABLE  structures  : 


typedef  struct  Xtable 
( 

int  nbr; 
int  *e; 
int  *v; 
int  *mult; 

} 

XTABLE; 


I  I  number  of  variables  tied  to  this  variable 
I  I  array  of  element  indexes 
I  I  array  of  variable  indexes 
I  I  array  of  multipliers  for  variables 


typedef  struct  Itable 

{ 
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int  e;  | |  index  to  element  array 

int  i;  II  index  to  implicit  variable  array 

) 

I TABLE; 


*/ 


♦include  <stdio.h> 

♦include  <math.h> 

♦include  "doerry.h" 

♦define  DEBUG  0 

set up_s imulation (nn, nnode , ee, ne lm, simulate , xtab, nxtab, itab, nitab,  err flag) 
NODE  *  *  nn ; 
int  nnode; 

ELEMENT  “ee; 
int  nelm; 

SIMULATE  simulate; 

XTABLE  **  *xtab; 
int  *nxtab; 

I TABLE  *  *  * itab ; 
int  *nitab; 
int  *arr£lag; 

( 

int  i, j,k, 1; 
int  nbr_x,nbr_i; 

/*  count  the  variables  */ 

nbr_x  »  nbr_i  =  0 ; 

for  (i  =  0  ;  i  <  nnode  ;  i++) 

< 

for  (j  =  0  ;  j  <  nn [i] ->nbr_subnode  ;  j++) 

{ 

/*  skip  reference  voltage  aubnode  */ 

if  (nn [ i] ->subnode ( j] ->ref_flag  =«  1  && 
nn  (  i) ->subnode  [  j] ->type  **“  0) 
continue ; 

/*  odd  extra  variable  for  current  reference  subnode  */ 

if  (nn ( i ] ->subnode ( j ) ->ref_f lag  ==  1  && 
nn [ i) ”>subnode ( j ] ->type  1) 
nbr_x++; 

/*  add  up  the  variables  ;  one  for  voltage  subnode 

nbr  connect  -  1  for  current  subnode  */ 
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if  (nn ( i) ->subnode ( j) ->type  0)  /*  voltage  subnode  */ 

nbr_x  +«  1; 

else  /*  current  subnode  */ 

nbr_x  +»  nn ( i] ->subnode [ j] ->nbr_oonnect  -  1? 

) 

) 


/*  count  the  implicit  variables  */ 

for  (i  *»  0  ;  i  <  nelm  ;  i++) 

{ 

/*  skip  element  if  it  is  not  used  */ 
if  (ee  ( i]  ->f lag  *■»  0)  continue; 
nbr_i  +=  ee [ i ] ->con ,nbr_implicit ; 

) 

if  (DEBUG) 

printf  ( "nbr_i  ■=  %d  ::  nbr_x  •=  %d\n"  ,  nbr_i ,  nbr_x)  ; 


/*  ensure  number  of  implict  variables  and  node  variables  are  the  same  */ 

if  (nbr_i  !=  nbr_x) 

( 

printf ("  ***  SYSTEM  DEFINITION  ERROR  :\n"); 
printf 

("  ***  Unequal  number  of  variables  and  implicit  variables  ***\n") 

printf("  ***  nbr_x  =  %d  | I  nbr_i  =  %d\n" , nbr_x, nbr_i) ; 

*errflag  =  1; 
return; 

} 

/*  allocate  arrays  */ 

*xtab  =  (XTABLE  **)  calloc ( (unsigned)  nbr_i,  sizeof (XTABLE  *) ) ; 

*itab  ■=  (ITABLE  **)  calloc ( (unsigned)  nbr_i,  sizeof (ITABLE  *) ) ; 
for  (i  <=  0  ;  i  <  nbr_i  ;  i++) 

{ 

(*xtab) [i]  «  (XTABLE  *)  calloc ( (uns igned)  1,  sizeof (XTABLE) ) ; 

(*itab) [i]  »  (ITABLE  *)  calloc ( (unsigned)  1,  sizeof (ITABLE) ) ; 

) 

/*  fill  the  arrays  */ 
k  «=  0; 

for  (i  «  0  ;  i  <  nnode  ;  i++) 

{ 

for  (j  =  0  ;  j  <  nn [ i ] ->nbr_subnode  ;  j++) 

( 


406 


setup_simulation.  c 


/*  skip  reference  voltage  subnode  */ 

if  (nn  [  i ] ->subnode  [  j] ->ref_f lag  **=  1  && 
nn [i] ->subnode [ j] ->type  “•  0) 
continue; 


/*  see  if  reference  current  subnode  */ 


if  (nn [ i] ->subnode [ j] ->ref_flag  1  && 
nn ( i] ->subnode [ j] ->type  ““  1) 

( 

for  (1  =  0  ;  1  <  nn [i] ->subnode [ j ] ->nbr_conneet  ;  1++) 

( 

if  (DEBUG)  printf ("  k  «  %d\n",k); 


(*xtab)  (k]->nbr  =  1; 

(*xtab)  [k]->e  ■=  (int  *)  calloc  (  (unsigned) 
(*xtab) (k]->v  =  (int  *)  calloc ( (unsigned) 
(*xtab)  Ik) ->mult=  (int  *)  calloc  (  (unsigned) 


1, sizeof (int) ) ; 
1 , sizeof (int) ) ; 
1, sizeof (int)  )  ; 


(*xtab)  [k] ->e  [0]  «*  nn  t i ] ->subnode  [  j ] ->elm_jptr  (1)  ; 

(*xtab)  [k] ->v (0]  «  nn(i)->subnode(j]->varjptr[l); 

( *xtab) ( k ] ->mult [ 0] =  1; 
k++ ; 


continue ; 

) 


/*  see  if  a  normal  voltage  subnode  */ 

/*  ***there  is  some  redundancy  here,  could  save  memory  by 
using  the  pointers  instead  of  copying  */ 

if  (nn [ i ] ->subnode ( j] ->type  0)  /*  voltage  subnode  */ 

< 

if  (DEBUG)  printf ("  k  -  %d\n",k>; 

(*xtab) (k]->nbr  «  nn ( i) ->subnode { j] ->nbr_connect; 

(*xtab)  (k]->e  «  (int  *)  calloc  (  (unsigned)  (*xtab)  ( k ] ->nbr, 

sizeof (int) ) ; 

( *xtab)  (k) ->v  «  (int  *)  calloc  ( (unsigned)  (*xtab)  (k) ->nbr, 

sizeof  (int ) ) ; 

(*xtab)  [k]->mult»  (int  *)  calloc ( (unsigned)  (*xtab)  (k J ->nbr, 

sizeof  (int) ) ; 

for  (1  -  0  ;  1  <  (*xtab) (k)->nbr  ;  1++) 

( 

(*xtab)  (k] ->e  (1]  “  nn ( i ] ->subnode [ j ] ->elm_ptr ( 1 ) ; 

(*xtab) [k] ->v (1)  »  nn [ i ) ->subnode ( j J ->var_ptr [1 ) ; 

(*xtab) [k] ->mult (1)“  i; 

) 

k++ ; 

) 

else  !*  current  subnode  */ 

( 
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) 


for  (1  ■  1  ;  1  <  nn (i] ->subnode [ j] ->nbr_connect  ;  1+t) 

( 

if  (DEBUG)  printf ("  k  -  %d\n",k); 


( *xtab)  (k] ->nbr  *  2; 

(*xtab) [k] ->e  =  (int  *)  calloc ( (unsigned) 
( *xtab)  (k) ->v  «  (int  *)  calloc ( (unsigned) 
(*xtab) (k) ->muit=  (int  *)  calloc ( (unsigned) 


2 , sizeof (int) ) ; 
2 , sizeof (int) ) ; 
2,  sizeof (int) ) ; 


( *xtab)  [ k ] ->e (0) 

( *xtab)  [k] ->v (0] 
(*xtab) (k] ->mult [0] = 


nn [ i ] ->subnode ( j) ->elm_ptr  [1] ; 
nn [i] ->aubnode [ j ) ->var_ptr ( 1 ) ; 
1? 


< *xtab) [k] ->e [ 1 ]  =  nn [i] ->subnode [ j ) ->elm_ptr (0] ? 

(*xtab) [k]->v[l]  «=  nn  (i) ->subnode  [  j]  ->va.r_ptr  [0] ; 

(*xtab)  (k]  ->mult  ( 1]  «*  -1; 


k++ ; 

) 


/*  save  the  implicit  variable  pointers  */ 

for  (i  =  0,k  =  0  ;  i<  nelm  ;  i++) 

( 

/*  skip  element  if  it  is  not  used  */ 
if  (ee(i]->flag  ”=  0)  continue; 

for  ( j  =  0  ;  j  <  ee [i] ->con .nbr_implicit  ;  j++) 

( 

if  (DEBUG)  printf ("  k  =  %d\n",k); 

(*itab)  (k)  ->e  ■=  i; 

( *itab) (k ] ->i  =  j ; 

ee [ i ) ->con . imp_index ( j ]  ■=  k; 

k++; 

) 

) 

*nitab  «  nbr_i; 

*nxtab  <=  nbr  x; 
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/*  simulate, c  */ 

/*  Norbert  ft .  Deerry 

14  Match  1969 

This  routine  performs  the  actual  simulation  of  the  electrical  system 

The  procedure  is  t 

A.  Initialize 

old  state  variables  to  their  initial  values 
set  current  variable  initial  guesses  to  the  value  specified, 
set  voltage  variable  initial  guesses  to  the  value  specified  for 
the  first  voltage  specified  at  a  voltage  subnode. 

B.  Balance  system 

Bl.  Calculate  the  implicit  variables,  see  if  convergence  is 
satisfied,  (if  satisfied,  go  to  C) 

Bl.  Manufacture  Jacobian. 

B2a.  From  function  calls 

B2b .  By  varying  inputs  to  system  and  allowing  to  change 
B3.  Solve  system  of  equations  with  Jacobian  and  Implicit  variables 
B4 .  Apply  correction  to  voltage  and  current  guesses. 

C.  Print  output  variables 

D.  Increment  time  counter  (if  after  TMA.X,  then  end) 

E.  See  if  external  input  variables  have  changed,  if  so  change  them 

F.  Set  old  state  variables  to  present  state  variables 

G  *  Go  to  B 

NOTE:  eventually  may  have  to  include  tests  for  switches  which  will) 

effectively  change  the  system.  For  example,  for  a  diode,  if  the 
the  voltage  drop  is  less  than  .6  volts  or  the  current  is  going  int 
the  wrong  direction,  then  one  of  the  implicit  equations  will  drive 
one  of  the  currents  to  zero.  If  the  voltage  drop  is  greater  than 
.6  volts  and  the  current  is  in  the  right  direction,  then  the  implicit 
equation  is  set  equal  to  . 6  -  the  voltage  drop. 

After  a  switch  is  thrown,  the  system  will  have  to  be  rebalanced.  If 
more  than  one  switch  can  be  thrown  at  a  time  is  unknown. 


***  27  March  1989  *** 

The  above  statements  are  probably  not  true,  By  properly  rotating 
the  axes  of  the  coordinate  systems,  I  think  one  can  properly  define 
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the  implicit  variables  such  that  you  will  get  convergence.  (As  long 
as  the  characteristic  is  continuous)  -nhd 


***  Revision  a  :  29  March  1989  *** 

Added  ff lush  (out)  statements  so  that  the  output  file  will  have 
something  in  it  if  the  program  crashes. 


*/ 

♦include  <stdio.h> 
♦include  <math.h> 
♦include  "doerry.h" 

♦define  BIG  1.0e+16 
♦define  DEBUG  0 


run_simulation ( line , ee , ne lm, n, nnode , qq, nq, xtab, nxtab, itab , ni tab, pv, 
simulate,  flag) 

char  ‘line;  /*  this  is  the  command  line  */ 

ELEMENT  “ee; 
int  nelm; 

NODE  “n; 
int  nnode; 

QUEUE  “qq; 
int  nq; 

XTABLE  “xtab; 
int  nxtab; 

XTABLE  *  * itab ; 
int  nitab; 

SIMULATE  ‘simulate; 

PRINT_VAR  *pv; 

int  flag;  /*  flag  «=  0,  start  at  beginning,  flag  “  1  continue  to  new  TMAX  */ 

{ 

FILE  ‘out; 

char  filename [MAXCHAR] ; 
int  i , j , k ; 

double  * jacob ,* implicit ,* var ; 
char  *calloc ( ) ; 

double  implicit_error ( ) , square_er ror , start; 
double  temp; 


if  (DEBUG) 

( 


) 


for  (i  *  0  ;  i  <  nq  ;  i++) 

printfCelm  «  *d  ,  var  «  *d  ,  val  =  +f  ,  time 
qq ( i ] ->var , qq ( i] -> value, qq [ i ) ->time) ; 


* f \n" , qq [ i) ->elm, 


jacob  =  (double  *)  calloc (nxtab  *  nxtab  ,  sizeof  (double) ) ; 
implicit  »  (double  * )  calloc(nxtafc  ,  sizeof  (double) ) ; 
var  «=  (double  *)  calloc  (nxtab  ,  sizeof  (double) ) ; 

if  (jacob  NULL)  return  1;  /*  out  of  memory  error  */ 
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/*  see  if  want  to  write  to  a  file  */ 

strsplit  ( line , filename,  1, MAX CHAR) ; 

if  (filename(O)  !=  0) 

< 

out  =  f open (filename,  "w") ; 
if  (out  =«=  NULL)  out  =  stdout; 

) 

else 

out  “  stdout; 

/*  initialize  the  simulation  to  initial  values  if  flag  ■■  0  */ 

if  (flag  ■■  0) 

( 

initialize_simulation (ee, nelm,  n, nnode  ,  *simulate) ; 
simulate->time  «=  simulate->tmin; 

) 

/*  perform  the  simulation  */ 

for  (k  =  0,  start  =  aimulate->time  ;  simulate->time  <••  simulate->tmax 
simulate->time  =  start  +  (double) (++k)  *  simulate->dt) 

{ 

/*  check  the  external  input  variable  queue  */ 

check_queue (ee, nelm, qq, nq, simulate->time) ; 

for  (i  =  0  ;  i  <=  simulate->max_iteration  ;  i++) 

( 

/*  calculate  the  implicit  variables  */ 

/*  first  time,  balance  the  system  */ 

/*  if  (k  ==  0) 

calc_implicit (ee, nelm, 0.0); 
else 

*/  calc_implicit (ee, nelm, simulate->dt) ; 

/*  calculate  jacobian  submatrices  if  calc_ implicit  didn't 
already  do  so  */ 

for  (j  »  0  ;  j  <  nelm  ;  j++) 

( 

if  (ee ( j ] ->con . jacob_switch  «“  1) 
continue; 

/*  if  (k  —  0) 

( 

temp  »  simulate->dt; 
simulate->dt  ■  0.0; 
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elm_jacob (ee ( j] , * simulate) ; 
simulate->dt  »  temp; 

) 

else 

*/  elm_jacob <ee [ j]  , ‘simulate) ; 

} 

/*  find  the  mean  square  error  */ 

square_error  =  implicit_error (ee, nelm) ; 

/*  see  if  have  met  convergence  test  */ 

if  (square_error  <  simulate->converge) 
break; 

/*  make  the  jacobian  matrix  */ 

make_jacob ( jacob, xtab, nxtab, itab, nitab, ee, nelm, n, nnode, ‘simulate) ; 

/*  make  the  implicit  variable  vector  */ 

make_implicit (ee, nelm, itab, nitab, implicit) ; 

/*  solve  the  system  of  equations  */ 

if  (gauss_eliminate (nxtab, jacob, implicit, var)  ! *  0) 

( 

print f ("  ***  SINGULAR  SYSTEM  MATRIX  at  time  %f\n", 
simulate->time) ; 
return  0; 

} 

/*  note  that  the  contents  of  jacob  and  implicit  were 
destroyed  by  gauss_eliminate  */ 

/*  apply  the  corrections  to  the  variables  */ 
update_variables (ee, nelm, n,  nnode, xtab, nxtab, var) ; 


) 

/*  see  if  failed  the  convergence  test  */ 

if  (i  >=  simulate->max_iteration) 

( 

print f ( "  ***  CONVERGENCE  TEST  FAILED  at  time  %f \n” , simulate->time ) 
return  0; 

) 

/*  print  the  output  variables  if  at  the  proper  time  */ 
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print_output (out, ee, nelm,  n, nnode, pv, simulate) ; 

/*  set  the  old_state  variables  equal  to  the  state  variable  */ 

for  (i  «  0  ;  i  <  nelm  ;  i++) 

{ 

for  (j  *  0  ;  j  <  ee [ i] ->con .nbr_states  ;  j++) 
ee [ i] ->con. old_state [ j )  -  ee [ i) ->con . state ( j ] ; 

) 


) 


/*  free  the  jacobian  array  along  with  the  other  two  vectors  */ 

free  ( jacob) ; 
free (implicit) ; 
free (var) ; 

if  (out  ! =  stdout)  fclose(out); 


) 

initialize_simulation (ee, nelm, n, nnode, simulate) 

ELEMENT  **ee; 
int  nelm; 

NODE  **n; 
int  nnode; 

SIMULATE  simulate; 

( 

int  i, j , k, eptr, vptr, typ; 
double  node_volt, current,  sum; 

/*  initialize  state  variables  and  external  input  variables  */ 

for  (i  =  0  ;  i  <  nelm  ;  i++) 

( 

for  (j  *  0  ;  j  <  ee (i ] ->con .nbr_states  ;  j++) 

ee ( i) ->con . old  state(jj  »  ee [ i ) ->con . init  state(j); 

for  (j  =  0  ;  j  <  ee [ i ] ->con . nbr_ext_in  ;  j++) 

ee ( i] ->con . ext_in ( j ]  ■  ee ( i ) ->con . init_ext_in [ j ) ; 


/*  initialize  jacobian  matrices  to  zero  */ 

for  (j  «  0  ;  j  <  ee (i ] ->con . nbr_implicit  ;  j++) 
for  (k  »  0  ;  k  <  ee ( i ) ->con ,nbr_input a  ;  k++) 

ee [ i ] ->con . jacob_in ( j  +  ee ( i) ->con . nbr_implicit  *  k]  *  0.0 


/*  initialize  the  input  variables  */ 
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for  (i  *  0  ;  i  <  nnoda  ;  i++) 

( 

for  (j  =  0  ;  j  <  n [ i] ->nbr_subnode  ;  j++> 

{ 

if  (n (i] ->subnode ( j ] ->type  0)  /*  voltage  law  */ 

( 

eptr  =  n  ( i] ->subnode  [  j] ->elm__ptr  [0] ; 
vptr  *  n [i] ->subnode ( j] ->var_jptr [0) ; 
node_volt  *=  n [ i ] ->subnode [ j ] ->init_volt ; 

ee (eptr ] ->con . in [ vptr ]  *  node_volt; 

for  (k  -  1  ;  k  <  n[i] ->aubnode ( j] ->nbr_connect  ;  k++) 

( 

eptr  »  n ( i] ->aubnode [ j] ->elm_ptr [k] ; 
vptr  =  n ( i] ->subnode [ j) ->var_ptx [k] ; 
ee (eptr] ->con . in [vptr]  =  node_volt; 

) 

) 

else  /*  current  law  */ 

< 

for  (k  1  , sum  *»  0;  k  <  n [ i] ->aubnode ( j] ->nbr_connect  ;  k++) 

( 

eptr  -  n  ( i  ] ->subnode  {  j  ] ->elm_jptr  [  k]  ; 
vptr  «  n [ i] ->subnode ( j ] ->var_ptr (k] ; 
current  ■  ee(eptr]->con.init_in[vptr); 

ee (eptr ] ->con . in ( vptr ]  ■  current; 
sum  +=  current; 

) 


/*  get  pointer  of  first  variable  */ 

eptr  *  n ( i ) ->subnode ( j ] ->elm_ptr [ 0] ; 
vptr  ■■  n  ( i]  ->subnode  [  j  J  ->var_ptr  [0] ; 

/*  initialize  the  current  for  the  first  variable  */ 

/*  If  the  first  variable  is  the  reference  current  node/subnode, 
then  it  is  an  independent  state  variable,  otherwise,  set 
it  equal  to  the  negative  sum  of  the  other  currents  entering 
the  subnode  */ 

ee  (eptr  ] ->con  .  in  [vptr  ]  ■>  /*  see  if  reference  node  */ 

(n [ i] ->aubnode [ j ] ->ref_f lag  1)  ? 
ee (eptr ] ->con . init_in (vptr)  s  -sum; 


> 


) 


) 
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calc_implicit (ee, nelm, dt) 
ELEMENT  **ee; 
int  nolm; 
double  dt; 

{ 

int  i; 
int  (*f )  (>  ; 


for  (i  -  0  ;  i  <  nelm  ;  i++) 

{ 

if  (ee[i]->flag  ““  0) 
continue; 

f  *>  ee  [ i]  ->device->£ ; 

<*f)  (ee [i] , dt)  ; 

} 

} 

/*  implicit_error  returns  the  mean  square  value  for  the  implicit  variable  */ 

double  implicit_error (ee, nelm) 

ELEMENT  **ee; 
int  nelm; 

( 

int  i,  j,  k,  nbr; 
double  err; 

nbr  ■  0 ; 
err  =  0.0; 

for  (i  “  0  ;  i  <  nelm  ;  i++) 

( 

if  (ee(i]->flag  *>»  0) 
continue; 

for  (k  m  0  ;  k  <  ee  ( i  ]  -icon  ,nbr_implicit  ;  k++) 

( 

if  (f abs (ee (i ) ->con . implicit (kj )  <  BIG) 

err  +-  ee ( i ) ->con . implicit (k)  *  ee ( i ) ->con . implicit  [k ] ; 
else 

err  +-  BIG; 
nbr++; 

) 

) 

if  (nbr  !«  0) 

return  (err  /  (double)  nbr) ; 
else 

return  0.0; 
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) 

make_implicit (ee, nelm, itab, nitab, implicit) 

ELEMENT  '»««; 
int  nelm; 

ITABLE  **itab; 
int  nitab; 
double  ‘implicit; 

{ 

int  i, eptr, iptr; 

for  ( i  =  0  ;  i  <  nitab  ;  i+  +  ) 

{ 

eptr  =  itab[i]->e; 
iptr  ■  itab{i]->i; 

implicit(i)  «  ee [eptr ] ->con . implicit [ iptr ) ; 

) 

) 


/*  check_queue  updates  the  external  inputs.  It  assumes  that 
the  queue  array  is  in  time  order  */ 

check_queue (ee, nelm, qq, nq, time) 

ELEMENT  **ee; 
int  nelm; 

QUEUE  *  *qq; 
int  nq; 
double  time; 

( 

int  i; 

for  (i  *  0  ;  i  <  riq  qq(i)->time  <■  time  ;  i++) 

( 

ee (qq [ i ] ->elm] ->con . ext_in (qq [ i) ->var )  »  qq ( i] ->value; 

if  (DEBUG)  printf("elm  «  %d  ,  var  “  %d  ,  val  “  %f  ,  time  -  %f\n", 
qq ( i) ->elm,  qq [i] ->var ,  qq[ i ) ->value,  qq [i) ->time) 


) 


) 


update__variables (ee, nelm, n, nnode, xtab , nxtab , var ) 
ELEMENT  **ee; 
int  nelm; 

NODE  * *n; 
int  nnode; 

XTABLE  **xtab; 
int  nxtab; 
double  *var; 

( 

int  i, j; 
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/*  update  all  tha  variables  */ 

for  (i  -  0  ;  i  <  nxtab  ;  i++) 

( 

for  (j  ■  0  ;  j  <  xtab[i]->nbr  ;  j++) 

< 

ee  (xtab  ( i]  ->e  ( j  ]  ]  ->oon .  in  (xtab  ( i]  ->v  (  j]  3 
var(i]  *  (double)  xtab [ i] ->mult [ j] ; 

) 

) 


) 

static  double  last_display ; 

print_output (out, ee, nelm, nn, nnode , pv,  simulate ) 

ELEMENT  “ee; 
int  nelm; 

NODE  **nn; 
int  nnode; 

PRINT_VAR  *pv; 

SIMULATE  ‘simulate; 

FILE  *out ; 

{ 

int  i, j, k; 

extern  double  laat_display; 

PRINT_VAR  ‘temp; 

/*  print  out  header  */ 

if  (aimulate->time  -=  simulate->tmin) 

( 

fprintf (out, "  time  ")  ; 

for  (temp  »  pv->next  ;  temp  !■  NULL  ;  temp  “  temp->next) 

( 

if  (temp->typ  !-  2)  /*  external  output  or  input*/ 
fprintf  (out, "%-12s  ", ee (temp->e) ->name) ; 
else  /*  print  node  name  */ 

fprintf  (out, "%-12s  ”, nn !temp->e] ->name) ; 

} 

fprintf (out , " \n" ) ; 

fprintf (out , "  ")  ; 

for  (temp  “  pv->next  ;  temp  !“  NULL  ;  temp  “  temp->next) 

( 

if  (temp“>typ  0)  /*  external  output  */ 

fprintf  (out , " %-12s  ” , ee ( temp->e ) ->device->ext_out_name ( temp->v] ) 
else  if  (temp->typ  ““1)  /*  external  input  */ 

fprintf  (out, "%-12s  ", ee (temp->e) ->device->ext_in_name (temp->v) ) ; 
else  /*  print  node  eubname  */ 
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fprintf (out, "%-12o  ", nn {temp->e]->subnode (temp->v) ->name) 

) 

fprintf (out, "\n") ; 

/*  ensure  first  line  gets  printed  */ 

last_display  »  simulate->time  -  2  *  simulate->print_dt; 

/*  print  out  variable  names  on  screen  if  not  printing  data 
to  the  screen  */ 

if  (out  !«  stdout) 

( 

for  (temp  -  pv->next  ;  temp  !■  NULL  ;  temp  -  temp->next) 

{ 

if  (temp->typ  “■*  0)  /*  external  output*/ 

printf("  %12s  :  %-12s\n", ee [temp->e] ->name, 

ee  (temp->e]  ->device->ext_out_name  [temp->v]  )  ,* 
else  if  (temp->typ  «“  1)  /*  external  input  */ 
printf("  %12s  :  %-12s\n" , ee [temp->e ] ->name, 

ee (temp->e] ->device->ext_in_name [temp->v] ) ; 
else  /*  print  node  name  */ 

printfC  ,»12s  !  %-12s\n" ,  nn  t  tomp->e  ] ->name, 
nn [temp->e ] ->subnode [temp->v] ->name) ; 

) 

printf ( "\n" ) ; 

} 


if  ( 

(simulate->time  -  last_display  >= 
simulate->pr int_dt  -  simulate->dt  /  10,0) 

I |  simulate->time  ««  simulate->tmin 
I  I  simulate->time  simulate->tmax) 

( 

last_display  =  simulate->time; 

fprintf (out , "  *-12. 5g  " , simulate->time) ; 

for  (temp  *  pv->next  ;  temp  !»  NULL  ;  temp  -  temp->next) 

( 

if  (temp->typ  “  0)  /*  external  output  */ 

fprintf (out, "%-12 ,5g  ",  ee (temp->e) ->con.ext_out.  [temp->v] ) 
else  if  (temp->typ  »  1)  /*  external  input  */ 

fprintf  (out,  " 12 . 5g  ee  [  temp->e )  ->con  .  ext_in  ( temp->v)  )  ; 

else 

/*  subnode  voltage  */ 

( 

i  «  nn [ temp->e ) ->subnode [ temp->v] ->elm_ptr [ 0 ) ; 
j  ■=  nn  [ temp->e ] ->subnode ( temp->v] ->var_ptr ( 0 ) ; 
fprintf  (out, " t-12 . 5g  ",ee[i)->con.in(j] ) ; 

) 

) 
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f printf (out , "\n" )  ; 

if  (out  !■  stdout) 

( 

printf ( "  .  ")  ; 
f flush (atdout ) ; 

ffluah(out);  /*  added  as  revision  a  */ 

) 


) 

) 

pr  '.nt_matrix  (out,  mat,  m,  n) 

FILE  *out; 
double  *mat ; 
int  m; 
int  n; 

( 

int  i,j;  /*  i  is  r  w,  j  is  column  */ 

fprintf (out , " \n" ) ; 

for  ( i  0  ;  i  <  m  ;  i  +  +  ) 

( 

for  (j  =  0  ;  j  <  n  ;  j++) 

fprintf  (out , "  %7.4g",mat(i  +  j*m] ) ; 
fprintf (out,  "\n"  )  ; 

} 

} 
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